Asi lo tengo yo en un Modulo:
Código:
Public Sub conectar()
Try
cadena = "server=127.0.0.1;user=TuUser;password=TuPassword"
conexion.ConnectionString = cadena
conexion.Open()
Catch ex As Exception
MsgBox("No se realizo la conexion, Error: " & ex.Message)'Aqui te mostrara el error en especifico que tienes
End Try
End Sub
Como distribuyes tu ejecutable?
Checa si el usuario puede entrar a tu ip donde tienes montado el servidor web.. intenta que acceda a http://tu.ip.com/paginadeprueba.html para ver si se puede conectar a tu ip. el puerto que usa mysql es 3306(por default)