Faulty rst.Open "Checks", conn

[armsys]

When VBA executes rst.Open "Checks", conn, it pops up error:
Run-time error '-2147217900 (80040e14)'.

Option Compare Database
Option Explicit
Sub Open_AndRead_dBaseFile()
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Set conn = New ADODB.Connection
conn.Open "Provider=MSDASQL;DSN=Checks;"
Debug.Print conn.ConnectionString
Set rst = New ADODB.Recordset
rst.Open "Checks.dbf", conn
Do Until rst.EOF
Debug.Print rst.Fields(1).Value
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
conn.Close
Set conn = Nothing
End Sub
How to resolve the issue?

[HansV]

Try

rst.Open "Checks", conn, adOpenForwardOnly, adLockReadOnly, adCmdTableDirect

or

rst.Open "SELECT * FROM Checks", conn, adOpenForwardOnly, adLockReadOnly, adCmdText

[armsys]

Hans,
Thanks for your help.
I solved the problem.
I chose a wrong driver. I should choose Microsoft dBase Drive (*.dbf) in ODBC Data Source Administrator window. Then, it works fine.
Thanks again.
Armstrong

[HansV]

Thanks for posting back.