Zoek de fout [vb.net & Databases]

[Shaddix]

Bij het klikken op de knop uitvoeren moet volgende code worden uitgevoerd:

Dim intTeller, intSpeed As Integer
        Dim strSpeed As String

        'Database variabels
        Dim connection As New OleDb.OleDbConnection
        Dim dataset As New DataSet
        Dim dataadapter As New OleDb.OleDbDataAdapter
        Dim sql As String
        Dim commandbuilder As New OleDb.OleDbCommandBuilder(dataadapter)

        connection.ConnectionString = "PROVIDER=Microsoft.Jet.OleDB.4.0; Data Source = ..\..\database.mdb"

        Do While intTeller < 8
            intTeller = intTeller + 1
            '//Load Speed
            'SQL instruction
            sql = "SELECT * FROM tblDriver"
            dataadapter = New OleDb.OleDbDataAdapter(sql, connection)
            dataadapter.Fill(dataset, "Driver")

            strSpeed = (dataset.Tables("Driver").Rows(intTeller).Item(3)).ToString

            '//Load Testtabel
            sql = "SELECT * FROM tblTestTeam"
            dataadapter = New OleDb.OleDbDataAdapter(sql, connection)
            dataadapter.Fill(dataset, "Test")

            '//Tabel updaten
            dataset.Tables("Test").Rows(intTeller).Item(3) = CInt(strSpeed)
            dataadapter.Update(dataset, "Test")
        Loop

maar het programma loopt echter hele tijd vast
hij geeft dan een syntaxerror op:

dataadapter.Update(dataset, "Test")

weet iemand wat ik verkeerd doe? want het is vrij frustrerend, ik zit al een poos uit te proberen

 

[bibab]

Dim intTeller, intSpeed As Integer
Dim strSpeed As String

'Database variabels
Dim connection As New OleDb.OleDbConnection
Dim dataset As New DataSet
Dim dataadapter As New OleDb.OleDbDataAdapter
Dim sql As String
Dim commandbuilder As New OleDb.OleDbCommandBuilder(dataadapter)

connection.ConnectionString = "PROVIDER=Microsoft.Jet.OleDB.4.0; Data Source = ..\..\database.mdb"

Try
connection.open()

Do While intTeller < 8
intTeller = intTeller + 1
'//Load Speed
'SQL instruction
sql = "SELECT * FROM tblDriver"
dataadapter = New OleDb.OleDbDataAdapter(sql, connection)
dataadapter.Fill(dataset, "Driver")

strSpeed = (dataset.Tables("Driver").Rows(intTeller).Item(3)).ToString

'//Load Testtabel
sql = "SELECT * FROM tblTestTeam"
dataadapter = New OleDb.OleDbDataAdapter(sql, connection)
dataadapter.Fill(dataset, "Test")

'//Tabel updaten
dataset.Tables("Test").Rows(intTeller).Item(3) = CInt(strSpeed)
dataadapter.Update(dataset, "Test")
Loop
Catch ex As Exception
MsgBox(ex.Message)
Finally
Connectie.Close()
End Try

Je moet dit is proberen. misschien dat het zo werkt