Why is the db not updating?

[Fuga]

Hi,

I´ve been struggling for quite some time with the db updating issue.

Here´s my code:

    Sub rangordna()
        Dim rangfaktords As New DataSet
        Dim rangfaktorda As New OleDb.OleDbDataAdapter()
        Dim rangfaktorcom, rangfaktorselcom As New OleDb.OleDbCommand
        Dim numarbete, rang As Integer
        Dim trarb As New TreeNode
        Dim pt As Double
        Dim strGID As String

        rangfaktorcom.Connection = opercon
        rangfaktorselcom.Connection = opercon
        numarbete = Me.TreeView2.Nodes.Count - 1

        For Each trarb In Me.TreeView2.Nodes
            rang = trarb.Index
            pt = rang / numarbete
            strGID = CStr(trarb.Tag)
            rangfaktorselcom.CommandText = "select * from Tscore where oid = " & Me.TextBox1.Text & " and GID = " & strGID & " and FID = " & Me.TextBox7.Text
            rangfaktorda.SelectCommand = rangfaktorselcom
            rangfaktorda.Fill(rangfaktords, "tscore")
            rangfaktorcom.CommandText = "update Tscore set point = @pont"
            rangfaktorcom.Parameters.AddWithValue("@pont", pt)
            rangfaktorda.UpdateCommand = rangfaktorcom
            rangfaktorcom.Connection.Open()
            rangfaktorcom.ExecuteNonQuery()
            rangfaktords.AcceptChanges()
            rangfaktorda.UpdateCommand.Connection.Close()
        Next
    End Sub

I use a public variable for the connection. Is that it?

Thanks

Fuga.