Option Explicit
Dim cn As New rdoConnection
Dim rs As rdoResultset
Dim SQL As String
Private Sub Command3_Click()
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
Unload Me
End Sub


Private Sub Form_Load()
cn.Connect = "SourceType=DBF;Exclusive=No;" _
& "SourceDB=" & App.Path _
& ";Driver={Microsoft Visual FoxPro Driver}"

cn.CursorDriver = rdUseOdbc
cn.EstablishConnection "rdDriverNoPrompt"

SQL = "select * from " & yourbd 'this should be a free table
Set rs = cn.OpenResultset(SQL, rdOpenKeyset, rdConcurRowVer)
If rs.BOF = True And rs.EOF = True Then
rs.AddNew
rs.Update
End If
rs.MoveFirst
Text1.Text = rs(0)
Text2.Text = rs(1)

End Sub

Это RDO. ADO примерно также.