Добрый вечер всем

Есть сделанная база

Sub СозданиеТаблицы()
Dim connDB As Object
Set connDB = CreateObject("ADODB.Connection")
connDB.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; data source=" & "G:\3\A.accdb"
connDB.Open

connDB.Execute = "CREATE TABLE RRR" & "(ID  COUNTER, Дата DATETIME, Вася TEXT, Петя TEXT,Маша TEXT,Балл TINYINT,Я TEXT);"
connDB.Close
Set connDB = Nothing
End Sub

И в нее я пробую вставить

Sub Insert()
Dim connDB As Object
Dim sss As String
Dim ddd As String
sss= "Кошка"
ddd= "Мышка"


Set connDB = CreateObject("ADODB.Connection")
connDB.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; data source=" & "G:\3\A.accdb"
connDB.Open


connDB.Execute = "INSERT INTO RRR VALUES( Cells(1,1).Value , sss, ddd)"
connDB.Close
Set connDB = Nothing
End Sub

Проблема такая, что:

1. Как вставить с ячейки? ( я не понимаю, как прописать правильно синтаксически в команде INSERT мою Cells...
2. Как в этом же запросе прописать выше обозначенную переменную sss и ddd?
3. Если у меня нумеруется все с ID и даты, то как написать в INSERT, чтобы Cells(1,1).Value было третьим по счету, а sss 5 и ddd 7)??

Вот как тут написать?
INSERT INTO RRR VALUES( , ,Cells(1,1).Value , ,sss, ,ddd)" что ли...? ))

Вот такой вопрос...)

http://www.sql.ru/forum/1284080/vstavit-dannye-v-access-iz-excel-posledovatelno-i-iz-yacheyki