Запуск процедуры SQL в VBa ACCESS (adp)

Формулировка задачи:

Здравствуйте!
у меня ADP соединенный к SQL2000. Есть процедура в SQL2000. Необходимо по нажатию кнопки запустилась процедура(вставка данных в табл)

Кнопка_Click() 

 Cn  ADODB.Connection 
 Cmd   ADODB.Command 
 ll   
  Cn = Application.CurrentProject.Connection 
Cmd.ActiveConnection = Cn 

Cmd.CommandText =  & .FromDate.Value &  & .ToDate.Value &  
Cmd.CommandType = adCmdStoredProc 
Cmd.CommandTimeout =  

 Cmd.Execute 
 

НО эта команда ругается: "Ошибка синтаксиса или нарушние прав доступа" Подскажите пожалуйста, что мне делать?

Решение задачи: «Запуск процедуры SQL в VBa ACCESS (adp)»

textual
                            Листинг программы 
                        
                            Cmd.Parameters(<font color="teal">"@MyParm1"</font>) = CDate(<font color="blue">Me</font>.FromDate.Value)