VB 6 и MySQL

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

Ребят.. такая проблема.. В общем у меня имеется два текстовых поля.. Я ввожу в них данные, потом нажимаю кнопку "Добавить" и данные должны добавиться в базу.. Стоит MySQL server 6.0 и ODBC connector 5.1.

Public Sub SQL_sub(sql_mode)
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open "DSN = localhost"
Select Case sql_mode
Case "ins_pup"
Set rs = cn.Execute("INSERT INTO t_kassa (ID,qwerty)VALUES('" & Form2.Text2.Text & "','" & Form2.Text1.Text & "')")
Adodc1.Refresh
Case "upd_pup"
Case "del_pup"
End Select
End Sub

код SQL - процедуры.. при нажатии "Добавить" вызывается "ins_pup" Выходит ошибка "Источник данных не найден и не указан драйвер, используемый по умолчанию".. Помогите пожалуйста..

Решение задачи: «VB 6 и MySQL»

textual
                            Листинг программы 
                        
                            abcd.Open sql, frm_clients.conn, adOpenStatic, adLockReadOnly