Question

I want to write a very simple query and bind it to a listbox with VBA code but an error occures by running this piece of code:

Private Sub Command0_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM funk", dbOpenTable)
Me.List9.Recordset = rs
End Sub

the name of the databse is correct. Could you please inform me how can I solve this problem?

Edit

I’ve changed my code to

Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM funk")
Me.List9.Recordset = rs

but it doesn’t work too

Answer 1

There is no need for such complication:

Private Sub Command0_Click()
Me.List9.Rowsource = "SELECT * FROM TableName"
End Sub

However, it would be much better to say:

Me.List9.Rowsource = "SELECT ID,VisibleField FROM TableName"

You can the hide the ID field yet any selection in a simple select is equal to the ID when the Bound Column is 1.

You will need:

Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
'dbOpenDynaset is the default here, but it would not be the default for 
'a local table
Set rs = db.OpenRecordset("SELECT * FROM funk",dbOpenDynaset)
Set Me.List9.Recordset = rs

Note Set on the last line.