' Verweis auf Microsoft ActiveX Data Objects 2.x Library nicht vergessen !!!!
 
Private Sub Form_Load()
Dim DB As ADODB.Connection
Dim RS As ADODB.Recordset
 
Set DB = New ADODB.Connection
 
DB.CursorLocation = adUseClient
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=dBase IV;Data" & _
  "Source=D:\"
 
Set RS = New ADODB.Recordset
RS.Open "SELECT * FROM DeineDBFDatei", DB, adOpenDynamic, adLockOptimistic ' 
' DbfDatei ohne Endung angeben
 
End Sub