Me estoy volviendo loco con MySQL y VB6

[eltin_vcp]

Buenas amigos, tengo un problema con mysql y vb6 en mi proyecto, la cosa es que si corro el vb6 en mi pc (servidor local ) mi proyecto anda, la cosa es en red, desde otro pc en red local como lo hago correr, desde el otro pc veo la pagina del wamp, el localhost lo veo al poner la ip de servidor local, pero cuando quiero correr el programa desde el otro pc me sale error -2147467259 (11001) my sql no puedo encontrar el servidor 10.0.0.10 (servidor local) y la opcion de reintentar, alguien me diria como hacer para que se conecte????? el codigo que estoy usando es el siguiente para la conexion a la base de datos dentro de un modulo.

Option Explicit
Public cnn As New ADODB.Connection
Public RS As New ADODB.Recordset
Public SQL As String


Public Function ConnectMySQL() As Boolean
Dim isOpen As Boolean
Dim Reply As VbMsgBoxResult

isOpen = False
On Error GoTo ERR_CONNECTION

Do Until isOpen = True
Set CN = New ADODB.Connection
CN.CursorLocation = adUseClient
CN.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};SERVER=http://10.0.0.40/;PWD=admin;UID=admin;PORT=3306;DATABASe=sql_postda t;"
CN.Open

isOpen = True
Loop
ConnectMySQL = isOpen

Exit Function

ERR_CONNECTION:
Reply = MsgBox("Error Number:" & err.Number & vbNewLine & "Description:" & err.Description, vbExclamation + vbRetryCancel, "Fallo La Conexion")
If Reply = vbCancel Then
ConnectMySQL = False
ElseIf Reply = vbRetry Then
Resume
End If
End Function


Public Sub CloseMySQL()
CN.Close
Set CN = Nothing
End Sub


Alguien que me saque de este apuro!!!