MySQL - Ugencia...ayudame

hola a todo, soy nuevo con mysql, tengo hacer una conexión desde vb a mysql al servidor en una red y esto no funciona..

Public Function CnSever(ByRef StrServerName As String, _
ByRef StrUserName As String, _
ByRef StrPassword As String) As Boolean

On Error GoTo CnnSeverErr
Dim U As ClsUsuarios

Set U = New ClsUsuarios

Set CnnSever = New ADODB.Connection

With CnnSever

.Open "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=" & StrServerName & ";" & _
"DATABASE=databasematricula;" & _
"USER=" & StrUserName & ";" & _
"PASSWORD=" & StrPassword & ";"


CnSever = True

End With

Exit Function
CnnSeverErr:
MsgBox Err.Description
End Function

por favor dime que debo hacer ...

oConn.Open "Driver={MySQL ODBC 3.51 Driver};" & _
"Server=myServer;" & _
"Database=myDB;" & _
"Uid=myUsername;" & _
"Pwd=myPassword"