сделайте Refresh
и посмотрите какие параметры
на самом деле хочет эта процедура
можете приятно удивиться


Function Debug_WriteCMDParameters(cmd,isResfresh)
dim cmdparam
on error resume next
if isResfresh then
cmd.Parameters.Refresh
response.write "cmd parameters refreshed<BR>"
end if
response.write cmd.Parameters.Count & "<BR>"
for each cmdparam In cmd.Parameters
Response.Write cmdparam.Name
Response.Write ","& cmdparam.Type
Response.Write ","& cmdparam.Direction
Response.Write ","& cmdparam.Size
Response.Write ","& CStr(cmdparam.Value)
Response.Write "<BR>"
next
on error goto 0
Debug_WriteCMDParameters=true
end function


вообще, может быть несовпадение типов
например, тип данных smalldatetime
у SQL и ADO означает несколько разные вещи
попробуйте указать такой совместимый тип данных,
из которого SQL server может сделать
implicit convertation

например, в данном случае можно использовать adInteger,
а вместо smalldatetime вполне сойдет datetime

имена реально нужны только если вы хотите
какие-то параметры забирать по именам,
типа cmd("City"), вполне ведь можно обойтись cmd(0)

все равно ведь указывать их нужно в том же порядке,
как они в процедуре идут,
так что с именами можете не волноваться особо,
на них он никогда не ругался...