lo llegue a solucionar al codigo de conexion le agregue el parametro check parameters=false
Código:
Public Sub Conexion_Mysql_Remote(ByVal strServidor As String, ByVal strPuerto As String, ByVal strBD As String, ByVal strUsuario As String, ByVal strPwd As String)
Dim strCadena As String
strCadena = "Server=" & strServidor & ";Port=" & strPuerto & ";database=" & strBD & ";Uid=" & strUsuario & ";Pwd=" & strPwd & ";check parameters=false"
cn_Mysql_Rem = New MySqlConnection(strCadena)
Try
cn_Mysql_Rem.Open()
Catch ex As MySqlException
MessageBox.Show(ex.Message, "Error de Conexion", MessageBoxButtons.OK, MessageBoxIcon.Error)
cn_Mysql_Rem = Nothing
End Try
End Sub
lo dejo ahi por si es que a alguien le presenta el problema :D