conn.Open "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" + CurDir() + ";"
conn.CursorLocation = adUseClient
recset.Open "SELECT * FROM dbf_test.dbf where len(phone)>0", conn, adOpenDynamic, adLockBatchOptimistic
Set Me.DataGrid1.DataSource = recset

'conn.Open "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" + CurDir() + ";"
'conn.Open "Provider=MSDASQL.1;Persist Security Info=False;mode=19;Data Source=Ôàéëû dBASE;Initial Catalog=C:\1;"
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1;Extended Properties=dBASE IV;User ID=Admin;Password="

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + CurDir() + ";Extended Properties='DBASE IV';"
On Error Resume Next
ssql = "CREATE TABLE phonelog.dbf (DDate  DATE, " & _
                              "DTime  CHAR(20), " & _
                              "Phone CHAR(20), " & _
                              "Comments  CHAR(250))"
conn.Execute (ssql)

conn.CursorLocation = adUseClient
recset.Open "SELECT * FROM [phonelog.dbf] where len(phone)>0", conn, adOpenDynamic, adLockPessimistic
Set Me.DataGrid1.DataSource = recset