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 cmdSearch_Click()
    SQL = "SELECT * FROM Alben WHERE " _
      & Combo1(1).Text & "LIKE ' " & txtSuch.Text _
      & "%' ORDER BY " & Combo1(0).Text
    Data1.RecordSource = SQL
    Data1.Refresh
End Sub

 
'------------------------------------------------------------------------------
' --'
'                             >> Allgemeines <<                                  '
'------------------------------------------------------------------------------
' --'
Option Explicit
 
Dim Db As Database
Dim Tabelle As Recordset
Dim dbFile As String
'für die Suchroutinen
Dim SQL As String
Dim oRs As Recordset
 
Private Sub Form_Load()
    'DataSteuerelement konfigurieren
    Data1.DatabaseName = App.Path & "\DATA.DAT"
    Data1.RecordSource = "Alben"
    Data1.Visible = False
 
    '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 = 250
    Me.Left = 3525
 
    'Auswahl Möglichkeiten Combo1(0) "Sortieren nach"
    Combo1(0).AddItem "AlbumNr"
    Combo1(0).AddItem "Datum"
    Combo1(0).AddItem "Interpret"
    Combo1(0).AddItem "Titel"
    Combo1(0).AddItem "Ablage"
    Combo1(0).AddItem "Art"
 
    'Voreinstellung: Sortieren nach Firma
    Combo1(0).ListIndex = 0
 
    'Auswahl Möglichkeiten Combo1(1) "Suchen nach"
    Combo1(1).AddItem "AlbumNr"
    Combo1(1).AddItem "Datum"
    Combo1(1).AddItem "Interpret"
    Combo1(1).AddItem "Titel"
    Combo1(1).AddItem "Ablage"
    Combo1(1).AddItem "Art"
 
    '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 Alben WHERE " _
      & Combo1(1).Text & "LIKE ' " & txtSuch.Text _
      & "%' ORDER BY " & Combo1(0).Text
    Data1.RecordSource = SQL
    Data1.Refresh
End Sub
 
Private Sub cmdCancel_Click()
    Unload Me
    frmStart.Show
End Sub

Thanks 4 Help Wer Rechtschreibfehler findet darf Sie behalten!!