Non c'è la sub per cancellare vero?

Nel capitolo dopo ho trovato

sub Page_Load(obj as Object, e as eventargs)
'Imposta la connessione
dim objConn as new OleDbConnection ("Provider=Microsoft.jet.OLEDB.4.0;Data Source="&Request.ServerVariables("APPL_PHYSICAL_PA TH")&"test.net\data\banking.mdb")


objConn.Open


dim I as integer
dim strSQL as string = "DELETE FROM tblUsers WHERE UserId=5"
dim objCmd as New OleDbCommand(strSQL, objConn)
I = objCmd.ExecuteNonQuery()
objConn.Close
end sub


per cancellare.

Ma come posso metterlo dentro lo script di prima??

Cioè soprattutto passargli l'ID

ciao