Sende dato som parameter til stored procedure fra VB til sql db

Hej
Jeg har problemer med at overføre en dato til en stored procedure. Jeg sætter datoen op med yyyy-mm-dd format, men den godtages ikke af min SP
Kodeeksempel:
tmpDate = Left(Format(Date, "yyyy-mm-dd"), 4) & "-" & Mid(Format(Date, "yyyy-mm-dd"), 3, 2) & "-" & Right(Format(Date, "yyyy-mm-dd"), 2)
   
Set prm = Cmd.CreateParameter("Date", adVarChar, , , tmpDate)
Cmd.Parameters.Append prm
   
Set rs = Cmd.Execute()

Jeg får at vide, at parameterobjektet er forkert defineret, men det valideret i sql og virker fint. Parameteren i SP er defineret som string

Torben