Private Sub Form_Load()
    'DataSteuerelement konfigurieren
    Data1.DatabaseName = App.Path & "\DATA.DAT"
    Data1.RecordSource = "MD"
    Data1.Visible = False
    .....
End Sub

Private Sub cmdSearch_Click()
    SQL = "SELECT * FROM MD WHERE " _
      & Combo1(1).Text & " LIKE '" & txtSuch.Text _
      & IIf(Right$(txtSuch.Text, 1) <> "*", "*", "") & "' " & _
      "ORDER BY " & Combo1(0).Text
    Data1.RecordSource = SQL
    Data1.Refresh
End Sub

Thanks 4 Help Wer Rechtschreibfehler findet darf Sie behalten!!