MySQL - Ejecutar Store Procedure vb6

Alguien tiene el formato para ejecutar Store Procedure desde una libreria de clases con el objeto Command, por ejemplo esto no funciona, me podrian decir pq???

Dim Cmd As New ADODB.Command
On Error GoTo Validar
With Cmd
.ActiveConnection = Cn
.ActiveConnection.CursorLocation = adUseClient
.CommandText = "sp_eli_compras"
.CommandType = adCmdStoredProc
.Parameters.Append .CreateParameter("pcia", adInteger, adParamInput, 2, GCia)
.Parameters.Append .CreateParameter("pcodigo", adInteger, adParamInput, 5, Codigo)
.Parameters.Append .CreateParameter("ptipdoc", adInteger, adParamInput, 2, TipDoc)
.Parameters.Append .CreateParameter("pnumdoc", adVarChar, adParamInput, 12, NumDoc)
.Execute
End With
Cmd.ActiveConnection = Nothing
Set Cmd = Nothing
Exit Function
Validar:
MsgBox Err.Description
End Function

sale el siguiente error:

Algo esta equivocado en su sintax cerca '{call sp_eli_compras(1,206,1,'0001000000001')} en la linea 1

De antemano muchas gracias al que pueda responder.........