Mini Control de Stock vb2008 - restas y sumas

[flashtkd]

Este mini control de stock esta enlazado directamente con la base de datos access, cuenta con dos campos "Id" y "cantidad", no usare por el momento el campo "Id" solo utilizare el campo "cantidad".

Como se puede apreciar en la figura, en el primer textbox muestra la cantidad total, que no tiene limite de compra, quiere decir que se incremente el numero sin limite, se incrementa ingresando un numero donde dice "Comprar", lo que deveria de sumar el valor agregado + el de la base de datos, y hacer lo mismo cuando se necesite vender algo, se restara, pero tiene un limite que es "10", debera desplegar un mensaje que no se puede vender nada más, es decir inabilitar ese textbox de vender..

Tengo un problema en las restas y sumas



Formulas

Sección vender
cantidad = txtvender - base de datos

si cantidad =>10 base de datos entonces
mensaje ("no se puede vender más")
fin si

Sección comprar
cantidad = txtcomprar + base datos

base datos - descargar
http://www.mediafire.com/?jfmgi9tm0n1

El código fuente vb-2008
http://www.mediafire.com/?yfzljnbhqwe

Logre hacer cargar la cantidad total, con el siguiente código.

Código del boton comprar, me modifica todo ok, como le implemento la resta.

Dim coneccion As OleDbConnection
Dim orden As OleDbCommand

coneccion = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Stock\Stock\bin\Debug\mibase.mdb")

Dim q As String = "update mitabla set cantidad = @cantidad where Id = 1"

orden = New OleDbCommand(q, coneccion)

orden.Parameters.Add(New OleDbParameter("@cantidad", OleDbType.Integer, 20))

orden.Parameters("@cantidad").Value = txtvender.Text

orden.Connection.Open()

orden.ExecuteNonQuery()

orden.Connection.Close()

MsgBox("Registro modificado")

txttotal.Refresh()

Como puedo convertir este codigo de VB6.0 a .Net

Dim Resta As Long
Resta = rst!cantidad - txtvender
If Resta <= txtstock Then
MsgBox "Inferior al Stock"
Else
' actualiza el campo de la tabla
rst!cantidad = Resta
rst.Update
' actualiza el TextBox
txtcantidad.Refresh
End If

Me da error

Dim Resta As Long

Resta = orden.Parameters!txttotal - txtvender

If Resta <= txtvender Then
MsgBox("Inferior al Stock")
Else
' actualiza el campo de la tabla
orden.Parameters!!cantidad = Resta
orden.Parameters!.Update()
' actualiza el TextBox
txttotal.Refresh()
End If