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

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de