Dim strConnection As String = _

       "Data Source=matthias;Initial Catalog=FilmsEnMuziek;" & "Integrated Security=True"

        Dim cn As SqlConnection = New SqlConnection(strConnection)

        cn.Open()

        Dim strSelect As String = "SELECT * FROM Films"

        Dim da As SqlDataAdapter = New SqlDataAdapter(strSelect, cn)

        Dim ds As DataSet = New DataSet

        da.Fill(ds, "Films")

        Dim dt As DataTable = ds.Tables("Films")

        da.Update(ds, "Films")

        cn.Close()

        grd.SetDataBinding(ds, "Films")