Dim myOleDbConection As New OleDb.OleDbConnection
        myOleDbConection.ConnectionString = _
          "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Pfad_Datenbank & _
          "\" & Name_Datenbank    
 
        Try
            myOleDbConection.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Beim öffnen der Datenbank ist ein" & _
              "Fehler aufgetreten.")
            Exit Sub
        End Try
 
        Dim myOleDbSelectCommand As New OleDb.OleDbCommand
        myOleDbSelectCommand.Connection = myOleDbConection
        myOleDbSelectCommand.CommandText = "select * from Abfrage1"
 
        Dim myOleDbDataAdapter As New OleDb.OleDbDataAdapter
        myOleDbDataAdapter.SelectCommand = myOleDbSelectCommand
 
        Dim myDataSet As New DataSet
        myOleDbDataAdapter.Fill(myDataSet, "Abfrage1)   ' hier gibt es eine" & _
          "Fehlermeldung
 
        ...

        Dim Nr as String = "123456"   ' zum Beispiel
        Dim _row As DataRow
        For Each _row In myDataSet.Tables("Tabelle1").Rows
            If Nr = _row("Nummer") Then
 
             ...

Hänk

(Wer früh aufsteht hat mehr vom Tag)