Ik probeer dus gegevens uit een datagrid te wijzigen met een updatecommand. Programmeren is niet mijn sterkste kant dus het zou goed kunnen dat hier ergens een fout inzit. Ik maak gebruik van visual studio 2003

Als ik deze code uitvoer is er geen enkel probleem, alleen dat hij blijkbaar niet let op wat ik in de tekstvakken gewijzigd heb. Er komt altijd terug hetzelfde in. De connectie zelf werkt, want als ik met vaste waarden werk in de sql, veranderd dit wel. Hier volgt mijn code

Code:
    Private Sub datagrid1_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.UpdateCommand

        'Besturingselementen
        Dim txttitel As TextBox = CType(e.Item.Cells(1).Controls(0), TextBox)
        Dim txtnieuws As TextBox = CType(e.Item.Cells(2).Controls(0), TextBox)
        Dim txtauteur As TextBox = CType(e.Item.Cells(3).Controls(0), TextBox)
        Dim txtdatum As TextBox = CType(e.Item.Cells(4).Controls(0), TextBox)
        Dim txtcategorie As TextBox = CType(e.Item.Cells(5).Controls(0), TextBox)
        Dim txtklas As TextBox = CType(e.Item.Cells(6).Controls(0), TextBox)
        Dim objCode As TableCell = e.Item.Cells(0)
        'Inhoud
        Dim strCode, strtitel, strnieuws, strauteur, strdatum, strcategorie, strklas As String
        Dim strSql As String


        strCode = objCode.Text
        strtitel = txttitel.Text
        strnieuws = txtnieuws.Text
        strauteur = txtauteur.Text
        strdatum = txtdatum.Text
        strcategorie = txtcategorie.Text
        strklas = txtklas.Text

        'het update-commando
        strSql = "update tblnieuws set titel='" & strtitel & "', nieuws='" & strnieuws & "', auteur='" & strauteur & " ', datum='" & strdatum & "', categorieID='" & strcategorie & "', klas='" & strklas & " ' WHERE ID=" & strCode
        Dim scmdUpdate As New OleDb.OleDbCommand(strSql, cnnWijzigen)


        'het update-commando uitvoeren
        cnnWijzigen.Open()
        scmdUpdate.ExecuteNonQuery()
        cnnWijzigen.Close()

        'editmode sluiten en  de gegevens vernieuwen
        DataGrid1.EditItemIndex = -1
        stelgegevensvoor()
    End Sub
Alvast bedankt om is te kijken!
Het gaat hier trouwens om een aangepaste code uit een cursus