Visual Basic - visual basic con sql 2000

Hola Programadores, necesito me ayuden a lo siguiente:
Soy nueva en programar con visual basic, bueno..estoy tratando de hacer lo siguiente
Tengo mi base de datos en sql 2000, y estoy armando un mantenimiento a una tabla en especifico, la cuestion es que ya tengo mi formulario enlazado con ado a esa tabla, ya veo la data que he agregado manualmente, el tema es que ya tengo un procedimiento almacenado que me inserta los datos para esa tabla...????Como hago para hacer referencia desde visual basic a ese procedimiento de sql y mandarle los parametros que serian los valores que se capturan desde el form de la aplicación¿¿¿¿¿¿
POR FAVOR AYUDENME¡¡¡¡
ATTE bEATRIZ

hola aunke ya no programo espero y esto t pueda ayudar..
Dim objConn As ADODB.Connection
Dim objCmd As ADODB.Command
'--------------------------------------------------------------------
'--- Abres la conexion a la base de datos
'--------------------------------------------------------------------
Set objConn = New ADODB.Connection
objConn.Provider = "SQLOLEDB"
objConn.ConnectionString = "Provider=SQLOLEDB.1;Initial Catalog=pubs;Data Source=papanotebook;User ID=sa;Password="
objConn.Open
'--------------------------------------------------------------------
'--- ejecutas command object con tu store procedure
'--------------------------------------------------------------------
Set objCmd = New ADODB.Command
objCmd.CommandType = adCmdStoredProc
objCmd.CommandText = "nombre del store"
Set objCmd.ActiveConnection = objConn
'--------------------------------------------------------------------
'--- creas y agregas los parametros
'--------------------------------------------------------------------
objCmd.Parameters.Append objCmd.CreateParameter("@chvFirstName", adVarChar,
adParamInput, 20, "John")
objCmd.Parameters.Append objCmd.CreateParameter("@chvLastName", adVarChar,
adParamInput, 40, "White")
objCmd.Parameters.Append objCmd.CreateParameter("@chrPhone", adChar, adParamInput,
12, "408 496-7223")
objCmd.Parameters.Append objCmd.CreateParameter("@chvAddress", adVarChar,
adParamInput, 40, "10932 Bigge Rd.")
objCmd.Parameters.Append objCmd.CreateParameter("@chvCity", adVarChar,
adParamInput, 20, "Menlo Park")
objCmd.Parameters.Append objCmd.CreateParameter("@chrState", adChar, adParamInput,
2, "CA")
objCmd.Parameters.Append objCmd.CreateParameter("@chrZip", adChar, adParamInput,
5, "94025")
objCmd.Parameters.Append objCmd.CreateParameter("@bitContract", adBoolean,
adParamInput, , 1)
objCmd.Parameters.Append objCmd.CreateParameter("@chrID", adChar, adParamInput,
1, "172-32-1176")
'--------------------------------------------------------------------
'--- ejecuta el store
'--------------------------------------------------------------------
objCmd.Execute
objConn.Close
Set objCmd = Nothing
Set objConn = Nothing

Hola José muchas gracias por leerme y contestar....claro que si me sirve¡¡¡¡¡lo voy a probar..te agradezco muchas gracias