ayuda, estoy varado con este codigo de update

[gualberto]

Hola a todos, pues estoy haciendo una pequeña aplicacion en VB.NET, en la parte de actualizar un valor en particular, me lanza un error:

"
Excepción no controlada del tipo 'System.NullReferenceException' en y.exe

Información adicional: Referencia a objeto no establecida como instancia de un objeto.
"

entiendo que el error esta en estea linea:
sql = "UPDATE cuentas SET saldo=" & Me.newsaldo & "WHERE no_tarjeta LIKE " & Me.userreg

yo ya verifique que estas variables tenga valores, que es lo que estoy haciendoa mal??, les agradecere sus consejos

aqui va todo el codigo, gracias:



mi codigo es el siguiente:

Dim strcon As String = "Provider = Microsoft.Jet.OLEDB.4.0; Data source = C:\CAJERO\base\CAJERO_AUTOMATICO.mdb"
Dim strcuenta As String
Dim strbill As String
Dim da1 As OleDbDataAdapter
Dim da2 As OleDbDataAdapter
Dim dscuenta As New DataSet()
Dim dsbill As New DataSet()

Dim miconex As OleDbConnection
Dim sql As String
'Dim mycommand As New OleDbCommand()
Dim ocmd As OleDbCommand
Dim introws As Integer

Public userreg 'pasado por valor
Public saldocue 'pasado por valor

Dim cansol As Integer
Dim newsaldo As Integer
Dim newbill As Integer

Private Sub form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
miconex = New OleDbConnection(strcon)
miconex.Open()

strcuenta = "select no_tarjeta, saldo from cuentas where no_tarjeta = '" + Me.userreg + "'"
da1 = New OleDbDataAdapter(strcuenta, strcon)
da1.Fill(dscuenta, "cuentas")

strbill = "select c_bill$1, c_bill$5, c_bill$10, c_bill$20, c_bill$50, c_bill$100 from inventarios where cod_cajero='1111'"
da2 = New OleDbDataAdapter(strbill, strcon)
da2.Fill(dsbill, "billetes")

With dsbill.Tables("billetes").Rows(0)
acbill5 = .Item("c_bill$5")
acbill10 = .Item("c_bill$10")
acbill20 = .Item("c_bill$20")
acbill100 = .Item("c_bill$100")
End With

End Sub


Private Sub b5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b5.Click
cansol = 5
If saldocue < cansol Then
MsgBox("Su solicitud traspasa su saldo disponible, Ud puede solicitar un maximo de: " & saldocue, MsgBoxStyle.Critical)
Else
newsaldo = saldocue - cansol
newbill = acbill5 - 1


'inicia rutina de actualizacion de datos

sql = "UPDATE cuentas SET saldo=" & Me.newsaldo & "WHERE no_tarjeta LIKE " & Me.userreg

ocmd.CommandText = sql
ocmd.Connection = miconex
ocmd.ExecuteNonQuery()


MsgBox("Tome su dinero", MsgBoxStyle.Information)

'fin rutina actualizacion de datos

End If
End Sub