[Megabizon]

Слушай, кажется я тебя не в ту сторону повел, не внимательный я сегодня, извини!
У тебя ошибка вылетает при rst.Open и тебе сообщают, что ты открываешь Recordset, не указав команду, которой его надо открыть. Я так понял, что ты на VBA пишешь, я в нем не очень, но утебя должно быть что-то вроде этого:

Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset;
* *
* *
* conn.ConnectionString = "DSN=MD; DRIVER=MySQL 3.51 Driver; LOCATION=c:\mysql\bin\mysql.exe" * *<--
* *
conn.Open
* *
rst.ActiveConnection = conn

далее должно идти что-то вроде

rts.CommandType = <- Здесь ты должен указать тип комманды, которая будет исполнятся - текст, хранимая процедура и т.п. см. хелп.

rts.CommandText = <- текст самой команды (SELECT *... или INSERT INTO... или т.п.) или имя ХП

А вот после этого открываешь набор
rst.Open

Во всяком случае в Билдере я так делаю.
Еще раз извини, что сначала ввел в заблуждение.