Сравнение таблиц из MySQL и Excel - VB

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

Всем привет. Прошу совета по следующей проблеме. Сразу предлагаю кусок кода:
Dim mine As New ADODB.Connection
Dim testmysql As New ADODB.Connection
Dim rs As New ADODB.Recordset
testmysql.ConnectionString = "Provider=MSDASQL.1;" & _
"Persist Security Info=False;Data Source=testmysql"
mine.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;DATABASE=mine;" & _
"User=root;Password=root;PORT=3306;OPTION=3;"
testmysql.Open
Set rs = New ADODB.Recordset
rs.Open "select kod, f, i, o from zoom, tesmysql" & _
" where zoom.kod=testmysql.kod", mine
Т.е у меня есть таблица testmysql в XL для простоты с одним полем kod и одним значением. И мне нужно вытянуть данные с MySQL таблицы zoom с таким кодом. Как это сделать в VBA пока не имею понятия. Т.е. как я вижу при открытии рекордсета можно ему задать только одно соединение, а таблицу testmysql, которая в XL-e VBA не видит (ругается VBA короче). Мож кто-нить подкинет идею или разъяснить как это толково сделать.
Заранее спасибо за рекомендации !

Решение задачи: «Сравнение таблиц из MySQL и Excel»

textual
                            Листинг программы 
                        
                            <font color="blue">Do</font> <font color="blue">While</font> i < <font color="darkblue"><b>1</b></font>

rs.<font color="blue">Open</font> sour, test
i = rs.RecordCount
rs.ActiveConnection = <font color="blue">Nothing</font>
ActiveSheet.Range(<font color="teal">"A2"</font>).CopyFromRecordset rs
rs.<font color="blue">Close</font>

<font color="blue">Loop</font>