MySQL - Ayuda con conexion a MySql desde vb.net

Hola a todos se que este depronto no es el foro indicado para hacer este post pero depronto si ya que el problema que tengo no se si es por error en la sitaxis del cod de vb,net o po error en la configuracion de MySql

me gustaira que alguien me pudiera ayudar lo que sucede es que estoy creando una apli con conexion a MySql pero al crear la conexion me aparece el siguiente error:

Unable to cennect to any of the specified MySql Host.

la conexion que uso es la siguiente si alguien sabe el por que del problema y me puede ayudar se lo agradesco de antemano.

aqui esta mi codigo para la conexion

Imports MySql.Data.MySqlClient

Public Class Form1

Dim DBcon As MySqlConnection

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim bConexionExitosa As Boolean = True

Try

DBCon = New MySqlConnection
DBcon.ConnectionString = ("server=localhost" & "user id=root" & "password=02488420" & "database=datmaster2000")

'Abrimos la conexión y comprobamos que no hay error
DBCon.Open()
MessageBox.Show("Conexión Realizada Con Éxito!")
DBCon.Close()

Catch ex As MySqlException
'Si hubiese error en la conexión mostramos el texto de la descripción
MsgBox(ex.Message.ToString)
bConexionExitosa = False
End Try

End Sub
End Class

Yo uso este codigo y me funciona:
Imports System.Data
Imports MySql.Data.MySqlClient

Dim DBCon As MySqlConnection
DBCon = New MySqlConnection
DBCon.ConnectionString = "Data Source=localhost;Port=3307;Database=inie;User ID=ANTONIO;Password=123opp;pooling=false;"
DBCon.Open()
Dim sql As MySqlCommand = New MySqlCommand
sql.Connection = DBCon
sql.CommandText = "SELECT * FROM INSCRITOS;"
sql.CommandType = CommandType.Text
Dim DA As New MySqlDataAdapter(sql)
Dim DT As New DataTable
DA.Fill(DT)
GridView1.DataSource = DT
GridView1.DataBind()
DBCon.Close()

Saludos