Private Sub DataGridSucheAuftraggeber()
 
        conaufsuche.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=Resources/Auftraggeber.mdb;" & _
        "Jet OLEDB:Database Password=fireball;"
 
        Try
 
            dsaufsuche.Tables.Add(dtaufsuche)
 
            daaufsuche = New OleDbDataAdapter
           ("SELECT * FROM Auftraggeber WHERE NameA LIKE = '%" & textbox.text & _
             "%'", conaufsuche)
 
            daaufsuche.Fill(dtaufsuche)
 
            Dim cb As New OleDbCommandBuilder(daaufsuche)
 
            bsaufsuche.DataSource = dtaufsuche
 
            Me.DataGridViewsucheauftraggeber.DataSource = bsaufsuche
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
    End Sub