CRIAR CONEXÃO ODBC MYSQL E DEPOIS DESTRUIR

[ô]Abrindo a conexão
Dim cn As New ADODB.Connection
Set cn = New ADODB.Connection

cn.Open [Ô]Sua string de conexão aqui[Ô]

[ô]consultando dados de uma tabela
Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open [Ô]Select * from SUA_TABELA[Ô], cn


[ô]Inserindo dados
cn.Execute [Ô]Insert Into SUA_TABELA (campo1, campo2) values ([ô]valor1[ô], [ô]valor2[ô])[Ô]

  
Option Explicit
Dim user As String, senha As String, server As String, porta As String, bancodedados As String
Public Con As ADODB.Connection
[ô]Public rs As ADODB.Recordset
Public Sub abrirconexao()
    Dim con_str As String
    Set Con = New ADODB.Connection
    bancodedados = [Ô]bd_dados[Ô]
    server = [Ô]localhost[Ô]
    [ô]server = [Ô]127.0.0.1[Ô]
    porta = [Ô]3306[Ô]
    user = [Ô]usuario[Ô]
    senha = [Ô]senha[Ô]
    con_str = [Ô]DRIVER={MySQL ODBC 5.3 Driver}[Ô] _
        & [Ô];server=[Ô] & server _
        & [Ô];Port = 3306[Ô] _
        & [Ô];database=[Ô] & bancodedados _
        & [Ô];User=[Ô] & user _
        & [Ô];Password=[Ô] & senha _
        & [Ô];option=3;[Ô]
    [ô]con_str = [Ô]Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=bd_lrwsistemas;User=supervisor;Password=wtnfk0ue;Option=3;[Ô]
    With Con
        .CursorLocation = adUseClient
        .ConnectionString = con_str
        .Open con_str
    End With
End Sub