Visual Basic - strore procedure con sql Server

deseo llamar un store procedure en visual basic 6 quisiera saber como es el codigo para invocarlo e ingresar los valores
gracias

Fijate con esto:

Dim cnt As Connection, cmd As Command, rst As Recordset

Set cnt = New ADODB.Connection

cnt.Open "TuConnectionString"

Set cmd = New ADODB.Command

Set cmd.ActiveConnection = cnt

cmd.CommandType = adStoredProc
cmd.CommandText = "MiProcedimiento"

cmd.Parameters.Append cmd.CreateParameter("param1",TipoDeDatos,adParamInput,Longitud,Valor

cmd.Parameters.Append cmd.CreateParameter("param2",TipoDeDatos,adParamInput,Longitud,Valor

cmd.Parameters.Append cmd.CreateParameter("param3",TipoDeDatos,adParamInput,Longitud,Valor

Set rst = cmd.Execute