Opslaan in access databank werkt niet

[wes44]

Hallo, ik krijg steeds de fout: invalidOperationexception:
Voor het bijwerken is een geldige InsertCommand vereist wanneer een DataRow-verzameling wordt doorgegeven met nieuwe rijen.

Imports System
Imports System.Data
Imports System.Data.OleDb

Public Class frmIngevenLeveranciers


Private Sub cmdWissen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdWissen.Click
txtReferentienummer.Text = ""
txtBedrijfsnaam.Text = ""
txtLand.Text = ""
txtAdres.Text = ""
txtNummer.Text = ""
txtGemeente.Text = ""
txtPostcode.Text = ""
txtFax.Text = ""
txtWebsite.Text = ""
txtTelefoonnummer.Text = ""
txtContactpersoon.Text = ""

End Sub

Private Sub cmdIngeven_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdIngeven.Click
Dim astrReferenties(10) As String
Dim da As New OleDbDataAdapter
Dim ds As New DataSet
Dim Sql As String
Dim con As New OleDb.OleDbConnection
Dim dbProvider As String
Dim dbSource As String
Dim dt As New DataTable
Dim dsNewRow As DataRow
Dim cb As New OleDb.OleDbCommandBuilder(da)

dbProvider = "Provider=Microsoft.JET.OLEDB.4.0;"
dbSource = "Data Source = K:\Programmaontwikkeling\VB\Examen2WesleyJanssens\Examen2WesleyJanssens\bin\Debug\stock.mdb"

con.ConnectionString = dbProvider & dbSource

con.Open()

Sql = "SELECT * FROM Leveranciers"
da = New OleDb.OleDbDataAdapter(Sql, con)
da.Fill(ds, "Leveranciers")

dsNewRow = ds.Tables("Leveranciers").NewRow()

astrReferenties(0) = txtReferentienummer.Text
astrReferenties(1) = txtBedrijfsnaam.Text
astrReferenties(2) = txtLand.Text
astrReferenties(3) = txtAdres.Text
astrReferenties(4) = txtGemeente.Text
astrReferenties(5) = txtNummer.Text
astrReferenties(6) = txtPostcode.Text
astrReferenties(7) = txtFax.Text
astrReferenties(8) = txtTelefoonnummer.Text
astrReferenties(9) = txtWebsite.Text
astrReferenties(10) = txtContactpersoon.Text

dsNewRow.Item(0) = astrReferenties(0)
dsNewRow.Item(1) = astrReferenties(1)
dsNewRow.Item(2) = astrReferenties(2)
dsNewRow.Item(3) = astrReferenties(3)
dsNewRow.Item(4) = astrReferenties(4)
dsNewRow.Item(5) = astrReferenties(5)
dsNewRow.Item(6) = astrReferenties(6)
dsNewRow.Item(7) = astrReferenties(7)
dsNewRow.Item(8) = astrReferenties(8)
dsNewRow.Item(9) = astrReferenties(9)
dsNewRow.Item(10) = astrReferenties(10)

ds.Tables("Leveranciers").Rows.Add(dsNewRow)
da.Update(ds, "Leveranciers")
con.Close()
End Sub
End Class