VB 6 и MySQL

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

"Server=localhost;User id=user;password=12345;database=My_db"

Option Explicit
 
Public db_FB As ADODB.Connection 'создаем подключение к базе
 
Sub ConnectBase(PathBase As String)
'PathBase - путь к базе firebird
On Error Resume Next
 
'создаем подключение
Set db_FB = New ADODB.Connection
 
 
Dim ConnectStr As String
'************************подключение к базе FireBird*********************
'делаем строку подключения
ConnectStr = "Provider=LCPI.IBProvider.3.Free;" & "Password=masterkey;" & _
            "Persist Security Info=True;" & "User ID=sysdba;" & _
            "Data Source=заказовая база салона;" & _
            "Location=" & PathBase & ";" & _
            "ctype=WIN1251;auto_commit=True;auto_commit_level=1048576;" & _
            "truncate_char=False;support_odbc_query=False;" & _
            "unicode_mode=False;unicode_stmt=False;" & _
            "auto_commit_ddl=0;dbclient_library=fbclient.dll;" & _
            "dbclient_type=fb1.5"
  db_FB.CursorLocation = adUseClient
  db_FB.Open ConnectStr 'устанавливаем подключение
'***************************подключение готово***************************
End Sub
 
Sub main()
'пример вызова
ConnectBase ("C:\Program Files\BazisSalon20\Bases\Salon_base.fdb")
End Sub

Dim SqlStr As String
Dim tab_str = New ADODB.Recordset
 
SqlStr = "select * from TAB_STR order by ind"
With tab_str
  .Open SqlStr, db_FB, adOpenDynamic, adLockBatchOptimistic
  If .EOF = False Then
    .MoveFirst
    lstString.clear
    Do Until .EOF = True
      lstString.AddItem Trim(![Str])
      lstString.ItemData(lstString.ListCount - 1) = ![ind]
      .MoveNext
    Loop

  .Open SqlStr, db_FB, adOpenDynamic, adLockBatchOptimistic

Case "imp_stat"
Dim sql As String, a As String
Set abcd = New ADODB.Recordset
sql = "select * from stations"
k = frm_clients.cmb_start.Text
frm_clients.cmb_start.Clear
frm_clients.cmb_start.Text = k
abcd.Open sql, frm_clients.conn, adOpenStatic, adLockReadOnly
frm_clients.cmb_start.Clear
Do While Not rs.EOF
     frm_clients.cmb_start.AddItem rs("Stations").Value
     rs.MoveNext
Loop
rs.Close

abcd.Open sql, frm_clients.conn, adOpenStatic, adLockReadOnly