vb.net Database

    Dim cnnSP As New SqlClient.SqlConnection 'Connectie
    Dim cmdvakken As New SqlClient.SqlCommand 'Voor u SQL te laten werken
    Dim davakken As New SqlClient.SqlDataAdapter 'Gebruik van een DATAgrid
    Dim dsvakken As New DataSet 'OOk gebruik datagrid
    Dim bsvakken As New BindingSource 'ook gebruik datatagrid

'Connectie naar u DATABASE (BESTAND)
cnnSP.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=PAD_NAAR_U_MDF_FILE;Integrated Security=True;Connect Timeout=30;User Instance=True"
cmdvakken.Connection = cnnSP
cnnSP.Open()

'Voor us SQL
cmdvakken.CommandText = "HIER U SQL"
cmdvakken.ExecuteNonQuery()

'Vernieuw datagrid
cmdvakken.Connection = cnnSP
cmdvakken.CommandText = "SQL"
davakken.SelectCommand = cmdvakken
dsvakken.Clear()
davakken.Fill(dsvakken, "TABELNAAM")
bsvakken.DataSource = dsvakken
bsvakken.DataMember = "TABELNAAM"
DataGridView.DataSource = bsvakken

Dim cnnSP As New SqlClient.SqlConnection 'Connectie
    Dim cmdvakken As New SqlClient.SqlCommand 'Voor u SQL te laten werken
    Dim davakken As New SqlClient.SqlDataAdapter 'Gebruik van een DATAgrid
    Dim dsvakken As New DataSet 'OOk gebruik datagrid
    Dim bsvakken As New BindingSource 'ook gebruik datatagrid
 
'Connectie naar u DATABASE (BESTAND)
cnnSP.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=PAD_NAAR_U_MDF_FILE;Integrated Security=True;Connect Timeout=30;User Instance=True"
cmdvakken.Connection = cnnSP
cnnSP.Open()
 
'Voor us SQL
cmdvakken.CommandText = "HIER U SQL"
cmdvakken.ExecuteNonQuery()
 
'Vernieuw datagrid
cmdvakken.Connection = cnnSP
cmdvakken.CommandText = "SQL"
davakken.SelectCommand = cmdvakken
dsvakken.Clear()
davakken.Fill(dsvakken, "TABELNAAM")
bsvakken.DataSource = dsvakken
bsvakken.DataMember = "TABELNAAM"
DataGridView.DataSource = bsvakken