Private Sub Command1_Click()
Dim db As dao.Database
Dim rs As dao.Recordset
Dim stext As String
Dim sql As String
 
stext = InputBox("Bitte geben Sie den zu suchenden Firmennamen ein:", _
  "Firmennamen suchen")
sql = "SELECT * FROM Kunden where Firma like '" & stext & "*" & "';"
Set db = OpenDatabase("C:\adrmbx.mdb")
Set rs = db.OpenRecordset(sql)
If rs.RecordCount = 0 Then MsgBox ("Keinen Datensatz mit diesem Firmennamen" & _
  "gefunden")
If rs.RecordCount = 1 Then Set Data1.Recordset = rs
 
End Sub