Membuat Module untuk Koneksi VB dengan MySQL

Halo, apa kabar kali ini saya mau membagikan sebuah koding sederhana bagaiamana cara untuk mengakses Mysql melalui VB dan menjadi prosedure bisa dipanggil dari mana pun atau bersifat global. Kita akan memanfaatkan fungsi module bawaaan VB, caranya buka Visual basic anda, kemudian buka project pilih Add Module, akan tampil gambar sebagai berikut :

Public CON As ADODB.Connection
 
'untuk melakukan koneksi ke database atau membuka koneksi
Sub Koneksi()

Set CON = New ADODB.Connection
CON.ConnectionString = " DRIVER={MySQL ODBC 5.3 ANSI Driver};" _
                       & "DATABASE=Latihan;" _
                       & "OPTION=0;" _
                       & "PORT=3306;" _
                       & "SERVER=localhost;" _
                       & "UID=root;" _
                       & "PWD=123;"
CON.Open

Exit Sub
err:
MsgBox " Error Saat Melakukan koneksi" + Chr(13) + "Error Message: " + err.Description, vbCritical, "Koneksi"

End Sub

Sedangkan untuk menutup koneksi, berikut kodingnya
 
'Menututp koneksi
Public Sub Tutup_Kon()
    CON.Close
Set CON = Nothing

End Sub

Simpan dan jalankan aplikasi anda, semoga lancar - lancar saja. Demikian tutorial singkat ini saya sampaikan, kurang lebihnya saya mohon maaf. Terima kasih.