Imports Mysql.Data.mysqlclient

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim conn As MySql.Data.MySqlClient.MySqlConnection
        conn = New MySql.Data.MySqlClient.MySqlConnection()
        conn.ConnectionString = "server=" & txtserver.Text & "; user id=" & txtusername.Text & "; password=" & txtpassw.Text & "; database=" & txtdb.Text

        Try
            conn.Open()
            MsgBox("Connessione Aperta")
        Catch myerror As MySql.Data.MySqlClient.MySqlException
            MsgBox("Impossibile Connettersi")
        End Try
    End Sub
End Class