Koneksi database MySQL pada VB.NET

Visual basic memberikan pilihan dalam menghubungkan ke database, diantaranya dengan Modul, Class atau ODBC. Pada tulisan ini saya membahas koneksi dengan modul ke database MySql.
1. Download Connector.net yang dibagikan secara gratis. anda bisa mengunjungi situs langsung mysql.
2. Masukkan library Mysql pada project yang anda buat. Add Library > MySql.data
3. Tambahkan Modul dan ketik kode program berikut ini

Imports MySql.Data.MySqlClient
Module ModKoneksi
    Public curFileName As String = Nothing
    Public Database As New MySqlConnection
    Public Tampil As New MySql.Data.MySqlClient.MySqlCommand
    Public Tampilkan As MySql.Data.MySqlClient.MySqlDataReader
    Public Grid As New MySql.Data.MySqlClient.MySqlDataAdapter
    Public Ds As New DataSet
    Public Tabel As String
    Public record As New BindingSource
    Public DMLSql As New MySql.Data.MySqlClient.MySqlCommand
    Public Sub Koneksi()
        Try
            Database.Close()
            Database.ConnectionString = "server=localhost;" _
                & "Port=3306;" _
           & "user id=root;" _
           & "password=admin;" _
           & "database=dblatihan"
            Database.Open()
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try
    End Sub
  End Module