MySql Connection [HELP]

[k3pos]

I tried this too

Private Sub Form_Load()
 
Dim sConnect As ADODB.Connection
Dim sRecord As ADODB.Record
Dim sTrconnect As String
 
Set sConnect = New ADODB.Connection
Set sRecord = New ADODB.Record
 
sTrconnect = "Driver={MySQL ODBC 3.51 Driver};Server=megaserv.co.il;Port=2222;Database=private_test;User=private_test;Password=private_test;Option=3;"
 
With sConnect
    .ConnectionString = sTrconnect
    .Open
End With
 
With sRecord
    .Open ("select * from `test`")
End With
 
Label1.Caption = sRecord("title") & sRecord("pass")
 
End Sub

BY THE WAY THE DATABASE \ PASSWORD \ USERNAME ARE CORRECT

-k3pos