Yes I am using ADO and the codes as below:

Private Sub OpenConnection1()
If Not (mCN1 Is Nothing) Then
mCN1.Close
Set mCN1 = Nothing
End If
' Create a new connection
Set mCN1 = New Connection
With mCN1
.ConnectionString = "DSN=Visual FoxPro Tables;UID=;PWD=;SourceDB=" & mAXIOMADir & ";SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"
.CursorLocation = adUseServer
.Open
End With
End Sub
please help me.. thanks


Regards
Winan