Ajuda com MySql

Desculpe como Não me logei não posso alterar o tópico anterior, mas queria fazer apenas esta correção veja

em um módulo cole

Public Conexao As New ADODB.Connection

Public Function Conecta(ByVal Valor As Boolean)
Dim CON_STR As String
Dim SERVER As String
Dim USER As String
Dim SENHA As String
Dim PORTA As String
Dim BD As String

'verifica se a conexao está aberta e fecha para evitar erros
If Conexao.State = 1 Then
Conexao.Close
Set Conexao = Nothing
Valor = True
End If

If Valor = True Then
SERVER = "db1.host.sk"
BD = "gcmsv"
PORTA = "3306"
USER = "trezevb"
SENHA = "1027bhe"
CON_STR = "DRIVER={MySQL ODBC 3.51 DRIVER};" _
& "Server=" & SERVER & ";" _
& "Port=" & PORTA & ";" _
& "Database=" & BD & ";" _
& "UID=" & USER & ";" _
& "PWD=" & SENHA & ";" _
& "Option=3;"
With Conexao
.CursorLocation = adUseClient
.ConnectionString = CON_STR
.Open CON_STR
End With
Else
Conexao.Close
Set Conexao = Nothing
End If
End Function

feito isto basta colocar o seguinte noi load do form Principal

Private Sub Form_Load()

Conecta True

End Sub

e no Unload

Private Sub Form_Unload(Cancel As Integer)
Conecta False
End Sub

pronto agora em qualquer evento você pode fazer sua consulta

eu utilizo desta forma

para consulta

SQL = "SELECT * FROM tabela WHERE campo = '" & critério & "'"

Set RS = Conexao.Execute(SQL)

Text1.Text = RS!Nome

para inserir excluir e alterar é assim

'inserir

Conexao.Execute("INSERT INTO tabela (campo1,campo2) VALUES ('valor1','valor2')")

'Alterar

Conexao.Execute("UPDATE tabela SET campo1 = 'novovalor1', campo2 = 'novovalor2' WHERE campo1 = 'Critério'")

e assi vai faça o teste