Private Sub mnu_sql_Click()
 
    Dim prompt As String, sought As String
    Dim title As String, default As String
 
    On Error GoTo fehler
    title = "Suchen in allen Kategorien: "
    prompt = "Bitte SQL Statement eingeben: "
    default = "select * from hardware where "
 
    sought = InputBox(prompt, title, default)
    If sought = "" Or sought = default Then Exit Sub
 
    Form3.Adodc1.RecordSource = sought
    Form3.Adodc1.Refresh
    Form3.Caption = "Ergebnis der Suche"
    Form3.Show
 
fehler:
MsgBox "Vertippt?"
Exit Sub
 
End Sub