Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        ' --- Hier müssen Sie anpassen: --- 
        Dim filename As String = "C:\Dokumente und Einstellungen\bjopri\Eigene" & _
          "Dateien\Visual Studio 2005\Projects\ProDog\bin\Debug\db1.mdb"
 
        ' Verbindungsstring für Verbindung zu einer 
        ' ungeschützten Access-Datenbank 
        Dim conString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=" & filename
 
        ' Verbindung aufbauen 
        Dim connection As OleDbConnection = New OleDbConnection(conString)
 
        ' Verbindung öffnen 
        connection.Open()
 
        ' DataSet erzeugen 
        Dim adapter As OleDbDataAdapter = New OleDbDataAdapter("SELECT * FROM" & _
          "Tabelle1", connection)
        Dim dataSet As DataSet = New DataSet()
        adapter.Fill(dataSet, "Tabelle1")
 
        ' DataView auf der Kundentabelle erzeugen 
        Dim dataView As DataView = New DataView(dataSet.Tables("Tabelle1"))
        ' Sortierung einstellen 
        dataView.Sort = "RacingID"
 
        ' Daten suchen
        Dim index = dataView.Find(TextBox1.Text)
        If index > -1 Then
            MessageBox.Show("Gefunden")
        Else
            MessageBox.Show("Keine Datensatz zur ID vorhanden")
        End If
        ' Verbindung schließen 
        connection.Close()
    End Sub