lan-based connection in vb 6.0

 [mysql][ odobc 5.1 driver] can't connect to mysql server
Option Explicit
Global conn  As New ADODB.Connection
Global rs As New ADODB.Recordset

Sub Main()
    Dim strclient As String
    Dim strserver As String
    conn.CursorLocation = adUseClient
    'conn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Mode=ReadWrite;Driver=MySQL ODBC 5.1 Driver;SERVER=%192.168.0.3;UID=nethan;DATABASE=dbcaltex1;PWD=nethan;SOCKET=MySQL;PORT=3306"
    conn.ConnectionString = "Driver=MySQL ODBC 5.1 Driver;SERVER=192.168.0.3;UID=nethan;PWD=nethan;DATABASE=dbcaltex1;SOCKET=MySQL;PORT=3306"
    conn.Open
    If conn.State = adStateOpen Then
    frmmenu.Show
    End If
End Sub

rhis is my module please help me to lan base my system