'------------------------------------------------------------------------------
' --'
'                             >> Allgemeines <<                                  '
'------------------------------------------------------------------------------
' --'
Dim Db As Database
Dim Tabelle As Recordset
Dim dbFile As String
'für die Suchroutinen
Dim sSQL As String
Dim oRs As Recordset
 
Private Sub Form_Load()
    'Datenbank öffnen
    dbFile = App.Path + "\DATA.DAT"
    Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
    Set Tabelle = Db.OpenRecordset("Kunden")
 
    'Aktuelles Datum in das Formular schreiben
    Label1(11) = Format$(Now, "dddd dd. MMMM yyyy")
 
    'Aktuelle Zeit in das Formular schreiben
    Label1(10) = Format$(Now, "HH:mm:ss")
 
    ' Formular in die Mitte stellen
    Me.Top = 0
    Me.Left = 150
 
    'Auswahl Möglichkeiten Combo1(0) "Sortieren nach"
    Combo1(0).AddItem "KDNR"                            'Kunden-Nummer
    Combo1(0).AddItem "Firma"                           'Firmenname
    Combo1(0).AddItem "Name"                            'Name Ansprechpartner
    Combo1(0).AddItem "PLZ"                             'Postleitzahl
    Combo1(0).AddItem "Stadt"                           'Stadt
 
    'Voreinstellung: Sortieren nach Firma
    Combo1(0).ListIndex = 1
 
    'Auswahl Möglichkeiten Combo1(1) "Suchen nach"
    Combo1(1).AddItem "KDNR"                            'Kunden-Nummer
    Combo1(1).AddItem "Firma"                           'Firmenname
    Combo1(1).AddItem "Name"                            'Name Ansprechpartner
    Combo1(1).AddItem "PLZ"                             'Postleitzahl
    Combo1(1).AddItem "Stadt"                           'Stadt
 
    'Voreinstellung: Suchen nach Name
    Combo1(1).ListIndex = 2
End Sub
 
Private Sub Form_QueryUnload(UnloadMode As Integer, _
  Cancel As Integer)
 
  If UnloadMode <> 1 Then
    Cancel = True
    cmdCancel.Value = True
  End If
End Sub
 
'------------------------------------------------------------------------------
' --'
'                           >> Such Routinen <<                                  '
'------------------------------------------------------------------------------
' --'
Private Sub cmdSearch_Click()
    SQL = "SELECT * FROM Tabelle WHERE " _
      & Combo1(1).Text & "LIKE ' " & txtSuch.Text _
      & "%' ORDER BY " & Combo1(0).Text
    Data1.RecordSource = SQL
End Sub
 
Private Sub cmdCancel_Click()
    Unload Me
    frmStart.Show
End Sub

Thanks 4 Help Wer Rechtschreibfehler findet darf Sie behalten!!