[VB6]Pb de référence

Bonsoir tout le monde!
je viens de me mettre sur SQL Server donc j'essaye de créer des procédures stockées mais ça fonctionne pas vraiment. Je pense que mon Pb vient des références à cocher dans VB6.
J'ai un message d'erreur du type "Variable objet ou variable bloc with non défini"
Voici mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim cmd As ADODB.Command Dim connexionVanessa As ADODB.connection Set cmd.ActiveConnection = connexionVanessa cmd.CommandType = adCmdStoredProc cmd.CommandText = "AjoutDVD" titre1 = TxtTitre.Text With cmd .Parameters.Append .CreateParameter("Titre1", adChar, adParamInput, 4, Titre1) End With cmd.Execute MsgBox "Enregistrement réussi"
Pouvez vous m'aider?
Merci d'avance