Option Explicit
Dim wert As Variant
 
Private Sub Command1_Click()
 
    Daten_einlesen
 
    Text1 = Text1 & wert(2, 3)
 
    'Da der Index bei 0 beginnt
    'ist der Aufruf Feld - 1, Datensatz -1
    'demnach ist das 3. Feld im 4. Datensatz
    'var = wert(2,3)
 
End Sub
 
Sub Daten_einlesen()
      Dim DB As Database
      Dim TB As Recordset
 
      Dim Anzahl As Long
 
      Set DB = OpenDatabase("C:\SPDANT.MDB")
      Set TB = DB.OpenRecordset("Antragsdaten", dbOpenDynaset)
 
            TB.MoveLast
            Anzahl = TB.RecordCount
 
            TB.MoveFirst
 
            wert = TB.GetRows(Anzahl)
 
      TB.Close
      DB.Close
End Sub