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