Modul Koneksi Database MySql dengan Visual Basic 2008

Public dbConn As New MySqlConnection


Sub Koneksi
            dbConn = New MySqlConnection("server=localhost;uid=root;password=;database=test;")
            Try
                dbConn.Open()
                MsgBox("Koneksi Sukses")
            Catch ex As Exception
                MsgBox("Terjadi Kesalahan " & vbCrLf & ex.Message.ToString)
            End Try
End Sub