Как в VB открыть базу MySql

Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim strSQL As String
 
    Set conn = New ADODB.Connection
    conn.ConnectionString = 'DRIVER={MySQL ODBC 3.51 Driver};' & _
        'SERVER=' & HostName & ';' & _
        'DATABASE=' & DBName & ';' & _
        'UID=' & UserName & ';' & _
        'PWD=' & Password & ';' & _
        'OPTION=3'
    conn.Open
 
' а это может быть и по-другому
    With conn
        .CommandTimeout = 1000
        .CursorLocation = adUseClient
    End With
 
...
 
'а если нужет рекордсет
    Set rs = New ADODB.Recordset
    With rs
        .CursorLocation = adUseClient ' опять-же м/б = adUseServer
        strSQL = 'Ваш SQL-запрос'
        .Open strSQL, conn, adOpenForwardOnly, adLockOptimistic
...
...
...
        .Close
        Set rs = Nothing
    End With
 
...
    conn.Close
    Set conn = Nothing