Imports MySql.Data.MySqlClient

Public Class frmMain

    'Db details
    Public Host As String = "localhost"
    Public Username As String = "root"
    Public Password As String = ""
    Public Database As String = "test"

    Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Public Sub OpenConnection()
        lblStatus.Text = "Attempting to open connection to database!"

        'Establish a new connection to the database
        Dim MySqlConn As MySqlConnection
        MySqlConn = New MySqlConnection()

        MySqlConn.ConnectionString = "server=" & Host & ";" _
            & "user id=" & Username & ";" _
            & "password=" & Password & ";" _
            & "database=" & Database

        MySqlConn.Open()
        lblStatus.Text = "Connected to database!"


        MySqlConn.Close()
        MySqlConn.Dispose()
    End Sub

    Private Sub btnConnect_Click(sender As Object, e As EventArgs) Handles btnConnect.Click
        OpenConnection()
    End Sub
End Class