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??