Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mdbCon As New MySql.Data.MySqlClient.MySqlConnection()
        Dim dr As MySql.Data.MySqlClient.MySqlDataReader
        Dim constring As String, querystring As String
        Dim fun As New MyFun
        Dim rit As Boolean

        querystring = "INSERT INTO testi (IDLINGUA,IDTAG,TESTO) VALUES (111,'PROVATAG','Тип'); "

        constring = "Server=" & SERVER_CONNESSIONE & ";Database=" & DB & ";User id=" & USER & ";Pwd=" & PSW & ";Port=" & PORT & ";CharSet=utf8;"

        mdbCon.ConnectionString = constring

        Dim command As New MySql.Data.MySqlClient.MySqlCommand(querystring, mdbCon)

        command.Connection.Open()
        command.ExecuteNonQuery()

        mdbCon.Close()

    End Sub