If Maschinenparameter.RecordCount > 0 And Not Maschinenparameter.BOF Then _
  Maschinenparameter.MoveFirst

    Dim db As Database
    Dim Maschinenparameter As Recordset
    Dim dbFile As String, Suchvariable As String, test As Integer
    Dim i As Integer, zähler As Integer, amEnde As Integer
 
dbFile = App.path & "\datenbank\" & "db.mdb"
    Set db = Workspaces(0).OpenDatabase(dbFile, False, False)
 
Set Maschinenparameter = db.OpenRecordset("Maschinenparameter")
 
    If Maschinenparameter.RecordCount > 0 And Not Maschinenparameter.BOF _
      Then Maschinenparameter.MoveFirst
 
    Suchvariable = frmMain.Label1
    amEnde = Maschinenparameter.RecordCount
 
 
    For i = 0 To amEnde
        If Maschinenparameter("f0") = Suchvariable Then         
            For zähler = 1 To 33
                frmMain.txtText(zähler) = Maschinenparameter("f" & zähler)
            Next zähler
         End If
 
         Maschinenparameter.Move i
 
    Next i