Dim dt As New DataTable()
    Dim bs As New BindingSource
    Dim c As New SqlClient.SqlConnection  
        c.ConnectionString = "Data" & _
          "Source=.\DATENBANK;AttachDbFilename=|DataDirectory|\DVD-Verwaltung." & _
          "df;Integrated Security=True;Connect Timeout=30;User Instance=True"
        c.Open()
 
        Dim da As New SqlClient.SqlDataAdapter
        'Abfrage an die Datenbank
 
        da.SelectCommand = (New SqlClient.SqlCommand("SELECT * from dvd", c))
        'Befüllen der Daten nach Abfrage in die Datatable
 
        da.Fill(dt)
        'Verbindung zur Datenbank schliessen
 
        c.Close()
        'Binding Source festlegen
        bs.DataSource = dt

  Me.dgvDVD.DataSource = bs
        With dgvDVD
            .Columns("dvd_id").Width = 20
            .Columns("dvd_titel").Width = 150
            .Columns("dvd_kurzbeschreibung").Width = 150
            .Columns("dvk_id").Width = 20
 
 
 
        End With

Dim da As New SqlClient.SqlDataAdapter
        'Abfrage an die Datenbank
        Dim suchstring As String = txtSuche.Text
 
 
        da.SelectCommand = (New SqlClient.SqlCommand("SELECT * from dvd where" & _
          "dvd_titel like 'suchstring%'", c))
        'Befüllen der Daten nach Abfrage in die Datatable
 
        da.Fill(dt)
        c.Close()
        'Binding Source festlegen
        bs.DataSource = dt