Visual Basic.NET - .net, mysql 5.0 y socket

Hola que tal a Todos,

Tengan un cordial saludo.

Nesecito de su ayuda, resulta que estoy haciendo uan aplicacion en .net y me conecto con mysql server 5.0, todo bien. pero resulta que ahora estaba haciendo pruebas montando el .exe en otro equipo para ahceder a la base de datos que esta en otro equipo, y me sale error de socket no esta conectado.

como hago para hacer esto, me pueden ayudar...

utilizo como coceto a la base mysql.data, y tengo esto (claro esto fue unas pruebas antes de empezar...) envio todo para que tambien conozcan para los que estan como yo...

de ante amno les agradezco su ayuda... y que Dios los Bendiga

--------conexion--------------------------------------------------------------------------------------
Dim con As MySqlConnection

con = New MySqlConnection
con.ConnectionString = "server=" & servidor & ";" _
& "user id=" & usuario & ";" _
& "password=" & contrasena & ";" _
& "database=prueba"
Try
con.Open()
'MessageBox.Show("Conexion Abierta Con exitoito")
'con.Close()
myCommand.Connection = con
Return True
Catch mierror As MySqlException
'MessageBox.Show("Error de Conexion a la Base de Datos: " & mierror.Message)
Return False
End Try

-----------insercion------------------------------------------------------------------------------------
Dim mySelectQuery As String
Dim myCommand As New MySqlCommand

mySelectQuery = "Insert into nombre (cedula,nombre) VALUES (" & icedula & ",'" & inombre & "')"

' Permite Iniciacion de la Transaccion
myTrans = con.BeginTransaction()
'myCommand.Connection = con
myCommand.Transaction = myTrans

Try
myCommand.CommandText = mySelectQuery
myCommand.ExecuteNonQuery()
myTrans.Commit()
Return True
Catch ex As MySqlException
myTrans.Rollback()
MsgBox("Error al intentar consultar: " & ex.Message)
End Try

------------consulta-------------------------------------------------------------------------------------
Dim myReader As MySqlDataReader
mySelectQuery = "SELECT cedula,nombre from nombre where cedula = '" & cedula & "'"
myCommand.CommandText = mySelectQuery

Try
myReader = myCommand.ExecuteReader()

If myReader.FieldCount = 0 Then
myReader.Close()
myCommand.Dispose()
Return False
Else
While myReader.Read()
If myReader.GetString(1) = nombre Then
myReader.Close()
myCommand.Dispose()
Return True
Else
myReader.Close()
myCommand.Dispose()
Return False
End If
End While
End If
Catch myerror As MySqlException
MsgBox("Error al intentar consultar: " & myerror.Message)
End Try
---------------------------------------------------------------------------------------------------

gracias-------------lo que necesiten a la orden

Hola buenas, yo estoy intentando hacer exactamente lo mismo, pero en Access.
El caso es que puede ser que al cambiar de equipo, es posible que la conexion se haga un lio, intenta controlar esa parte, a ver que pasa.
Por cierto, a mi, a la hora de realizar consultas en Access me da una excepcion no controlada en myReader = myCommand.ExecuteReader() y no tengo idea que puede ser, he dejado un post con el codigo de la funcion en concreto, lo hace igual que el tuyo pero cambiando el reader (claro).
Suerte con la aplicacion.

Lo que veo es que puede ser el servidor el qe no conecta, puede ser proble ade firewall o puertos reservados para otras aplicaciones, revisa o mira esa parte