Problema al actualizar una BD de access

[danimera]

CAda vez que me actuliza en vez de colocarme el valor del parametro, siempre me coloca el valor de 1 o el valor de la primera variable parametro creada,, no entiendo por que, Soy nuevo en .Net, la base de datos actualiza pero no con el valor que debe ser


Tengo este codigo

Código:

 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        
        coneccion = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=anime.mdb")

        Dim orden1 As OleDb.OleDbCommand
        Dim orden2 As OleDb.OleDbCommand
        Dim orden3 As OleDb.OleDbCommand
        Dim orden4 As OleDb.OleDbCommand
        Dim orden_pre As OleDb.OleDbCommand
        If accion = 1 Then
            MsgBox("ok sere")
            q = "insert into respuesta(id_pregunta,respuesta,correcta) values(@ID_PREGUNTA,@R1,@R1C)"
            'q = "insert into respuesta(id_pregunta,respuesta) values(@ID_PREGUNTA,@R2)"
            'q = "insert into respuesta(id_pregunta,respuesta,correcta) values(@ID_PREGUNTA,@R3,@R3C)"
            'qp = "insert into respuesta(id_pregunta,respuesta,correcta) values(@ID_PREGUNTA,@R4,@R4C)"
        Else

            MsgBox("actualiza")
            q = "update respuesta set respuesta = @R4C where id =" & lblrespuesta1.Text
        End If

        orden1 = New OleDb.OleDbCommand(q, coneccion)
        orden2 = New OleDb.OleDbCommand(q, coneccion)
        orden3 = New OleDb.OleDbCommand(q, coneccion)
        orden4 = New OleDb.OleDbCommand(q, coneccion)
        orden_pre = New OleDb.OleDbCommand(q, coneccion)

        orden1.Parameters.Add(New OleDb.OleDbParameter("@ID_PREGUNTA", OleDb.OleDbType.Integer))
        orden2.Parameters.Add(New OleDb.OleDbParameter("@ID_PREGUNTA", OleDb.OleDbType.Integer))
        orden3.Parameters.Add(New OleDb.OleDbParameter("@ID_PREGUNTA", OleDb.OleDbType.Integer))
        orden4.Parameters.Add(New OleDb.OleDbParameter("@ID_PREGUNTA", OleDb.OleDbType.Integer))
        orden_pre.Parameters.Add(New OleDb.OleDbParameter("@ID_PREGUNTA", OleDb.OleDbType.Integer))
        orden_pre.Parameters.Add(New OleDb.OleDbParameter("@PREGUNTA", OleDb.OleDbType.VarWChar, 250))
        orden_pre.Parameters.Add(New OleDb.OleDbParameter("@TIPO", OleDb.OleDbType.VarWChar, 20))
        orden_pre.Parameters.Add(New OleDb.OleDbParameter("@NIVEL", OleDb.OleDbType.Integer))

        orden1.Parameters.Add(New OleDb.OleDbParameter("@R1", OleDb.OleDbType.VarWChar, 100))
        orden2.Parameters.Add(New OleDb.OleDbParameter("@R2", OleDb.OleDbType.VarWChar, 100))
        orden3.Parameters.Add(New OleDb.OleDbParameter("@R3", OleDb.OleDbType.VarWChar, 100))
        orden4.Parameters.Add(New OleDb.OleDbParameter("@R4", OleDb.OleDbType.VarWChar, 100))

        orden1.Parameters.Add(New OleDb.OleDbParameter("@R1C", OleDb.OleDbType.Boolean))
        orden2.Parameters.Add(New OleDb.OleDbParameter("@R2C", OleDb.OleDbType.Boolean))
        orden3.Parameters.Add(New OleDb.OleDbParameter("@R3C", OleDb.OleDbType.Boolean))
        orden4.Parameters.Add(New OleDb.OleDbParameter("@R4C", OleDb.OleDbType.Boolean))
        orden1.Parameters("@ID_PREGUNTA").Value = Val(lblid.Text)
        orden2.Parameters("@ID_PREGUNTA").Value = Val(lblid.Text)
        orden3.Parameters("@ID_PREGUNTA").Value = Val(lblid.Text)
        orden4.Parameters("@ID_PREGUNTA").Value = Val(lblid.Text)
        orden_pre.Parameters("@ID_PREGUNTA").Value = Val(lblid.Text)
        orden_pre.Parameters("@NIVEL").Value = Val(txtnivel.Text)
        orden_pre.Parameters("@PREGUNTA").Value = txtpregunta.Text
        orden_pre.Parameters("@TIPO").Value = txttipo.Text
        orden1.Parameters("@R1").Value = respuesta1.Text
        orden2.Parameters("@R2").Value = respuesta2.Text
        orden3.Parameters("@R3").Value = respuesta3.Text
        orden4.Parameters("@R4").Value = respuesta4.Text
        orden1.Parameters("@R1C").Value = rb1.Checked
        orden2.Parameters("@R2C").Value = rb2.Checked
        orden3.Parameters("@R3C").Value = rb3.Checked
        orden4.Parameters("@R4C").Value = rb4.Checked
        MsgBox(orden1.Parameters("@R1").Value)
        orden1.Connection.Open()
        orden1.ExecuteNonQuery()
        orden1.Connection.Close()

        orden2.Connection.Open()
        orden2.ExecuteNonQuery()
        orden2.Connection.Close()

        orden3.Connection.Open()
        orden3.ExecuteNonQuery()
        orden3.Connection.Close()

        orden4.Connection.Open()
        orden4.ExecuteNonQuery()
        orden4.Connection.Close()

        Me.Close()

    End Sub