Dim strSuche As String
         strSuche = Val(txtSuche.Text)

        Sub SucheNummer()
               lblAusgabe.Text = "einen moment bitte, datensatz wird gesucht.."
'Benutzer bekommt das nur wenn alles durch ist

                Dim cmdMbrs as OleDbCommand
                cmdMbrs = New OleDbCommand("select Firma, " & "berufe, " & _
                  "kontaktperson, " & "strasse, " & "plz, " & "ort, " & "from" & _
                  "adresse" & "berufe")
 
'Verstehe ich nicht wirklich, kannst du einfach als "select Firma, berufe," & _
  "kontaktperson, strasse, plz, ort, from adresseberufe" schreiben.
'Sollte deine "strSuche" nicht dabei sein? Und du musst deinem Command eine 
' Connection zuweisen.

Dim da As New OleDbDataConnector(sql, conn)
Dim dt As New DataTAble
da.Fill(dt)
dataGrid1.DataSource = dt
DataBind()

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist