Private Sub Command1_Click()
  Dim DB As Database
  Dim Rs As Recordset
  Dim SQL As String
 
  Set DB = DBEngine.OpenDatabase("Daten1.mdb")
 
  SQL = "SELECT Zahl FROM DeineTabelle WHERE Zahl = " & Text1.Text
  Set Rs = DB.OpenRecordset(SQL)
  If Rs.RecordCount > 0 Then
    MsgBox "Ja, is da"
  Else
    MsgBox "nicht vorhanden"
  End If
 
  Rs.Close
  DB.Close
  Set DB = Nothing
End Sub