¿Cómo utilizar VB para crear un procedimiento almacenado para una base de datos SQL2000?

Por supuesto, la siguiente es una breve sección de un procedimiento almacenado que he realizado:

adoconn.Execute ("CREATE PROCEDURE mmas98.AddHDCard @parm_CardName varchar(40,@parm_CardID int,@parm_ Dep_Dep"). AddHDCard @parm_CardName varchar(40),@parm_CardID int,@parm_ DepName varchar(40),@parm_ID varchar(20),@CardCount int AS" & vbCrLf & _

"DECLARAR @ahid GUID,@ DepId int" & vbCrLf & _

"SELECT @ahid = [object_id] FROM mmas98.AlarmHost DONDE [VCM_count]=0" & vbCrLf & _

"SELECT @DepId = [ id] DESDE mmas98.departamento DONDE [nombre] = @parm_DepName" & vbCrLf & _

"IF @CardCount=1 TRUNCAR TABLA mmas98.card" & vbCrLf & _

"INSERTAR INTO mmas98.VALUES(@parm_CardName,@CardCount,@ahid,@parm_CardID,0,@DepID,'1990-1-1','2012-12-31',0,0,2,0,@parm_ID)" & vbCrLf & _

"RETURN 0")

End If

adocomm.CommandText = "mmas98.AddHDCard" 'Establece el origen del objeto de comando.

p>

adocomm.CommandType = adCmdStoredProc 'Establezca esta propiedad para optimizar la ejecución de este comando

' adocomm.Parameters.Refresh

Si ListView1.ListItems. Cuente > entonces

adocomm.Parameters(1) = itm.SubItems(2)

adocomm.Parameters(2) = itm.SubItems(4)

adocomm.Parameters( 3) = itm.SubItems(3)

adocomm.Parameters(5) = i

adocomm.Execute

Finalizar si

Command4(0).Caption = CStr(Int(i / ListView1.ListItems.Count * 100)) & "%"

Command4(0).Refresh

Siguiente i

Command4(0).Enabled = False

Finalizar si