Private Sub Form_Load()
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim strSQL As String
    Dim dbFile As String
 
    dbFile = App.Path + "\G71.MDB" 'Datenbank auswählen
    Set db = Workspaces(0).OpenDatabase(dbFile, False, False) 
 
    strSQL = "SELECT DBFArtikelnummer, DBFNetto, DBFMenge, " & _
             "DBFREDatum, DBFEKPreis " & _
             "FROM DBFSTAT"
 
    Set rst = db.OpenRecordset(strSQL)
 
 
    Do While Not rst.EOF
        DBGrid1 = rst.Fields("DBFArtikelnummer")
        DBGrid1 = rst.Fields("DBFNetto")
        DBGrid1 = rst.Fields("DBFMenge")
        DBGrid1 = rst.Fields("DBFREDatum")
        Debug.Print rst.Fields("DBFEKPreis")
        rst.MoveNext
 
    Loop
 
 
    rst.Close
    Set rst = Nothing
    db.Close
    Set db = Nothing
 
 
End Sub