Runtime error 3061 - HELP!!

[Caro]

Using the following code:
Set db = DBEngine.Workspaces(0).OpenDatabase("C:\access files\S and B.mdb")
List1.Clear

Select Case Index

Case 0:
sSQL = "Select * from [Customers Query Name] where [Company Name] Like '" & Text1.Text & "*'"
Set rs = db.OpenRecordset(sSQL, dbOpenDynaset)
List1.Enabled = False

I get an error on my set rs line but when I look at a different database with fewer tables in, its fine any ideas??

[Bigley]

Maybe you could use an error handler and message box
on error goto Handler
.
.
.
Handler :
msgbox err.description

to get better details of the problem

[Clunietp]

get rid of dbOpenDynaset and try it again, sometimes those parameters cause errors in certain situations....