Stable connection to MySQL Online

See more:

VB

MySQL

I want to connect to MySql Online by VB.NET. But the connection is always closed. So do you have any way to do with this? Please help!

Edit -

Sub StartInternetdb()
        Try
            Cn_int = New MySqlConnection
            Cn_int.ConnectionString ="Host=SQL09.FREEMYSQL.NET;Database=testdb;User ID=raniy;password=123456;Port=3306;charset=utf8"
            Cn_int.Open()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Information)
        End Try
 
End Sub

And when I try to run the command to select data from table in the first time it works, but when I do it again later, it shows the error. It means:

Connection must be open.

Please help me to establish the stable connection in order to make it not close at any time.

Thanks in advance!