I can't find any information about dBase III-connections with ADO.
I know the use of ODBC-connections, but I can't use them for this
project. Does anyone know a way to connect to a .dbf-file ?

Thank you!
--
Peter Elsen

The following example creates a DSN-Less connection using a VFP Free Table
ODBC Connection string.

Public Function ConString_VFP_FT(ByVal Source As String) As String
  Const cnnstr1 As String = "Provider=MSDASQL.1;Persist Security
Info=False;Extended Properties=""DSN=Visual FoxPro Tables;UID=;SourceDB="
  Const cnnstr2 As String =
";SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=No;De
leted=No;"""

  ConString_VFP_FT = cnnstr1 & Source & cnnstr2
End Function

Private Sub YourSub()
  Dim rst as adodb.recordset
  Dim sSQL as string

  sSQL = "SELECT YourFields FROM TableName"

  Set rst = New ADODB.Recordset
  With rst
    .ActiveConnection = ConString_VFP_FT(Directory_of_DBF_File)
    .Source = sSQL
    .Open Options:=adCmdText
  End With

  rst.close
  set rst = nothing
End Sub

'dbase Connection
With DBFcn
    .Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=dBASE Files;Initial Catalog=" & {Directory Name ("C:\DATA\")}
End With

'dbase Recordset
With DBFrs
    .ActiveConnection = DBFcn
    .CursorLocation = adUseClient
    .CursorType = adOpenDynamic
    .Open "Select * FROM [" & {FILENAME ("DATAFILE.DBF")} & "]"
    .MoveFirst
    Do While Not .EOF
        .MoveNext
    Loop
    .Close
End With