Не выполняется запрос с параметром - VB

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

Здравствуйте уважаемые!
Помогите выполнить запрос. Есть база на Аксесе.
Подключился к ней из Бейсика, а на запросе пишет ошибку - Остсутсвие одного или нескольких параметров.
Если вместо а подставить например 1, то все выполняется.
Dim a As Integer
'a = Val(Text1.Text)
a = Text1.Text
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\AiS_3\TD_3_98.mdb;Persist Security Info=False"
'Adodc1.RecordSource = "Select IDSpisokOtgruzki, IDToplivo from SpisokOtgruzli Where IDOtgruzki='" & 1 & "'"
Adodc1.RecordSource = "Select IDSpisokOtgruzki, IDToplivo from SpisokOtgruzli Where IDOtgruzki=" & "a"
Adodc1.Refresh

Решение задачи: «Не выполняется запрос с параметром»

textual
                            Листинг программы 
                        
                            Adodc1.RecordSource = <font color="red">"Select IDSpisokOtgruzki, IDToplivo from 
SpisokOtgruzli Where IDOtgruzki="</font> + CStr(a)