Necesito ayuda sentencia de visual basic

Hola,

soy alumno de una escuela secundaria y estoy haciendo un trabajo el cual involucra base de datos. Estoy trabado en un error que no encuentro solucion y no puedo preguntarle a mi profesor. El error me aparece en la funcion actualizar, que tiene que cambiar el valor del stock de una base de datos de access por el numero que escribo en el txt del programa
La funcion es asi

Public Sub Actualizar(ByRef tabla As String, ByRef producto As String)

cmd.Connection = conn
cmd2.Connection = conn
cmd.CommandType = CommandType.Text
cmd2.CommandType = CommandType.Text
Dim cant As Integer
Try

conn.Open()
cmd.CommandText = "SELECT Stock FROM " & tabla & " WHERE modelo=" & producto
MsgBox(cmd.CommandText)
dr = cmd.ExecuteReader
cant = Val(dr(0)) - Val(frmregistrar.TxtCantidad.Text)
MsgBox(cant)

cmd2.CommandText = "UPDATE Stock SET stock=" & cant & " WHERE modelo=" & producto
cmd2.CommandType = CommandType.Text
dr.Close()
conn.Close()
Catch ex As Exception
MsgBox(ex.Message)

End Try
End Sub

si me pueden ayudar, desde ya muchas gracias
saludos