CONECTAR MYSQL NA REDE VIRTUAL

Global Conexao As New ADODB.Connection

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

If Conexao.State = 1 Then
Conexao.Close
Set Conexao = Nothing
Valor = True
End If

If Valor = True Then
SERVER = [Ô]192.168.56.101[Ô]
BD = [Ô]teste[Ô]
PORTA = [Ô]3306[Ô]
USER = [Ô]root[Ô]
SENHA = [Ô]123[Ô]
CON_STR = [Ô]DRIVER={MySQL ODBC 5.1 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

run-time error [ô]-2147467259 (80004005)[ô]:
[MySQL][OBDC 5.1 Driver] Host [ô]192.168.58.1[ô] is not allowed to connect to this MySQL server