Private Sub frmInvoerKlanten_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Declaraties
Dim cmSelectKlanten As New OleDbCommand 'select
Dim cmbBob As New OleDbCommandBuilder(daKlanten)
Public conString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Db\autos.mdb;Persist Security Info=False"
Public dbCon As New OleDbConnection(conString)
Public daKlanten As New OleDbDataAdapter
Public dsKlanten As New DataSet
'DATAGRID VULLEN
Try
daKlanten.SelectCommand = Me.cmSelectKlanten
Me.cmSelectKlanten.Connection = dbCon
Me.cmSelectKlanten.CommandText = "select [klant-voornaam], [klant-achternaam], [klant-straatnaam], [klant-huisnr], [klant-gebdatum], [klant-email], [klant-postcode], [klant-reknr] from klanten"
dsKlanten.Clear()
daKlanten.Fill(dsKlanten, "klanten")
Me.dgKlanten.DataSource = dsKlanten
Me.dgKlanten.DataMember = "klanten"
Catch ex As Exception
MessageBox.Show("fout bij het vullen van de tabel", "ERROR!", MessageBoxButtons.OK)
End Try
Me.AcceptButton = Me.btnToevoegen
'btnToevoegen.Enabled = False
End Sub