Запуск ХП из adp в Access 2000/2002

А почему не работает следующий код?

Private strSQL As String
Private cn As New ADODB.Connection
cn.ConnectionString = CurrentProject.BaseConnectionString
cn.Open
strSQL = "exec dbo.MyStoredProc"
cn.Execute (strSQL)

navernoe procedura s parametrami..
Luchshe vypolniat' SQL commandy ne kakim-nibud' Recordsetom ili Connectom a sobstvenno "Command"

Private Sub Click()
Dim vardate As Date
Dim cmd As New ADODB.Command

vardate = PayGetDate(BisYear)
cmd.ActiveConnection = CurrentProject.Connection
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "gp_Pay"
cmd.Parameters.Append cmd.CreateParametr("@xdatAbrBis", adDate, adParamInput, , vardate)
cmd.Execute

End Sub