Visual Basic - AYUDA PORFAVOR!!! CON CONEXION ADO

Hola
Estoy haciendo una conexion ado con sql server pero cuando mando llamar el preocedimiento me dice que no encuentra el stored procedure que mando llamar que tengo mal asi hago mi coneccion.
La base de datos se llama practica el nombre del servidor no se donde pueda verlo pues me imagino que es local pues solo estoy practicando y no estoy conectada en red ni nada y tengo instalado el sql server como desktop,trabajo con vb5 y sql server 7, ojala me puedan ayudar de antemano muchas gracias!!!
Este es el codigo
Option Explicit
Dim cnm As ADODB.Command
Dim cn As ADODB.Connection
Private Sub msconectar()
Set cn = New ADODB.Connection
With cn
.Provider = "sqloledb"
.ConnectionString = "user id=sa" & ";control source=" & "" & ";initial catalog=" & ";PRACTICA"
.Open
End With
End Sub
Private Sub msdesconectar()
cn.Close
End Sub
Private Sub Command2_Click()
Dim iscita As String
Dim isnumero As Long
iscita = InputBox("Introduzca la cita", "Añadir cita")
If iscita <> "" Then
msconectar
Set cnm = New ADODB.Command
With cnm
.Parameters.Append .CreateParameter("cita", adVarChar, adParamInput, 10, iscita)
.Parameters.Append .CreateParameter("id", adInteger, adParamOutput, 4, isnumero)
.CommandText = "spcita"
.CommandType = adCmdStoredProc
Set cnm.ActiveConnection = cn
cnm.Execute
MsgBox "El codigo es" & cnm.Parameters(1).Value
msdesconectar
End With
End If
msconectar
End Sub

Tienes puesto esto:
initial catalog=" & ";PRACTICA"

aqui veo infiltrado un punto y coma, quitalo.

initial catalog=" & "PRACTICA"

Prueba nuevamente.

(Sugerencia) Segun tu codigo estas conectando y desconectando al SQL para cada vez que haces una consulta, trata de tener la coneccion al abrir el programa y cierrala al salir de el, esto solo es por razones de performance.

Saludos desde Lima

GRACIAS
ya le quite lo que me decias, solo que ahora no me reconoce los paramtros del stored preocecure donde pongo:
.Parameters.Append .CreateParameter("cita", adVarChar, adParamInput, 10, iscita)
me dice que cita ers un objeto invalido
porque???
Gracias por adelantado

Mira Angelita, yo lo hago asi, no se si tenga algo que ver pero pruebalo.

.Parameters.Append .CreateParameter("cita", adVarChar, adParamInput, 10)
.Parameters("cita").Value = iscita

Ahora, para que te diga que es un objeto invalido tendria que ver tu SP y verificar el nombre. En todo caso, borra el SP con DROP y vuelve a crearlo, podria ser que el campo este creado con otro nombre diferente a "cita".

Saludos desde Lima

SI muchas gracias!!!!!!!!, ya lo corregi era un error del SP.
Que tengas un bonito dia!!!