cDataDir = "C:\VFP\DATA"
cConnectString = "Driver=Microsoft Visual Foxpro Driver;UID=;SourceType=DBF;Deleted=YES;Null=NO;SourceDB=" + cDataDir

Set oData = New ADODB.Recordset
oData.Open "SELECT * FROM DATADICT", cConnectString, adOpenStatic, adLockReadOnly

While Not oData.EOF
Debug.Print oData.Fields("Field1")
oData.MoveNext
Wend

If you are really unfamiliar with VB, you can use the Microsoft ADO ActiveControl and bind the control to textbox's and grids semi-similar to VFP.

HTH,
Ed


>Hi all,
>
>I am looking for a very simple VB sample that accesses a foxpro free table. Simply accessing the table and displaying a specific field from two records will aid my cause greatly.
>
>My kingdom for a use.