Hi,

Iam coding data access application with database object and recordset.
Here' s my code
'------------------------------------------------------------------
Private Function CreateRecordSet() As Boolean
   Dim db As Database
   Dim rs As Recordset
       Set db = DBEngine.Workspaces(0).OpenDatabase(txtDBpath)
       sql = "SELECT * FROM TblMembers"
       Set rs = db.OpenRecordset(sql, dbOpenDynaset)            'THE ERROR
APPEARS HERE
       MsgBox "show this", vbOKOnly

   If Err.Number = 0 Then
      CreateRecordSet = True
       MsgBox "no error", vbInformation
   Else
       CreateRecordSet = False
       MsgBox Err.Description, vbCritical
   End If
End Function
'------------------------------------------------------------------

I got an error 13 at runtime that says "Type mismatch". I look at different
books and the internet but still convince myself that my code is OK. No
errors were found after OpenDatabase method, and the txtDBpath is correct,
TblMembers is one of the tables in the .mdb file
Can someone tell me why I got that error at runtime.

I am running
windows xp
visual basic 6,
mdb file was create in Access 2003 and converted to Access97

Thanks.