Como hacer una llamada con ADO a un procedimiento almacenado en SQL-server

S3rMaN
15 de Diciembre del 2004
Hola estoy intentando saber como se hace una llamada a un procedimiento almacenadao desde visual basic mi codigo es este:

Dim Qy As New ADODB.Command
Dim cn As New ADODB.Connection
Dim rs as New ADODB.RecordSet
Dim Parm As New ADODB.Parameter
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=baseDatos;Data Source=Dominio"
Set Qy.ActiveConnection = cn
Qy.CommandType = adCmdStoredProc
Dim fecha As Date
fecha = CDate("15/12/2004")
Qy.Parameters.Append Qy.CreateParameter("Fecha", adDate, adParamInput, 8, fecha)
Qy.CommandText = "NombreProcedimientoAlmacenado"
Set rs = Qy.Execute
MsgBox (Qy.Parameters(1).Value)

pero con esto no me va.
a ver si alguien me puede hechar una mano gracias.