Imports MySql.Data.MySqlClient

Module Module1

    Sub Main()
        Dim database As String = "DB名"
        Dim server As String = "接続先のアドレス"
        Dim username As String = "接続ユーザ"
        Dim password As String = "接続ユーザのパスワード"
        Dim port As String = "ポート番号"

        ' 接続先を指定いて、コネクションの生成
        Dim conStr As String = String.Format("Server={0};Port={1};Database={2};Username={3};Password={4}",
                                             server, port, database, username, password)
        Using con As MySqlConnection = New MySqlConnection(conStr)
            ' コネクションを開く
            con.Open()

            ' ステートメントを生成
            Dim cmd As MySqlCommand = New MySqlCommand()
            ' SQL設定
            cmd.CommandText = "select now()"
            ' コネクションの設定
            cmd.Connection = con

            ' 結果の取得
            Using reader As MySqlDataReader = cmd.ExecuteReader()
                reader.Read()
                Debug.Print(reader.GetDateTime(0))
            End Using
        End Using

    End Sub

End Module