เอาโปรแกรมไปรันเครื่องอื่นแล้วขึ้น Unable to connect to any of the specified MySQL hosts

Imports MySql.Data.MySqlClient
Public Class class_db
    Private db_host As String = " Server=127.0.0.1; "
    Private db_name As String = " Database=MyMoney; "
    Private db_user As String = " UID=root; "
    Private db_password As String = " Password=1234; "
    Dim sqlcnn As MySqlConnection = New MySqlConnection
    Public Sub cnnstr()
        Dim cnnstr As String
        cnnstr = Me.db_host & Me.db_name & Me.db_password & Me.db_user
        sqlcnn.ConnectionString = cnnstr
    End Sub