Dim cnn As New Connection
Dim rs As New Recordset
 
cnn.CursorLocation = adUseClient
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=dBase 5.0;Data" & _
  "Source=c:\db"
rs.Open "select * from xxx", cnn, adOpenStatic, adLockOptimistic