Cara Koneksi Database sql dengan Program VB

Dalam pembuatan program aplikasi yang bersifat jaringan sering kali kita kesulitan dalam melakukan koneksi. dalam program windows sendiri kita sudah disediakan cara menghubungkan database dengan program yang kita buat. tapi pada kesempatan kali ini saya akan mencoba menjabarkan gemana cara kita menghubungkan database sql dengan program VB melalaui source code.
berikut ini contoh sintak/perintah yang digunakan



'Vaiabel yang bersifat public yang ditaruh pada modul
Global koneksi As New MYSQL_CONNECTION
Private Const DBNAME As String = "Barang"
Public ServerName, ServerIP, DbName, UserName As String


Private Sub cmdLogin_Click()
Dim hos, Usr, pass As String
Screen.MousePointer = 11
koneksi.SetOption MYSQL_OPT_COMPRESS
hos = txtmasuk(0).text
Usr = "root"
pass = ""
SaveSetting App.Title, "Settings", "HOSTNAME", txtmasuk(0).text
SaveSetting App.Title, "Settings", "USERNAME", txtmasuk(1).text
SaveSetting App.Title, "Settings", "PASSWORD", ""

koneksi.OpenConnection hos, Usr, pass, "", 3306
If koneksi.Error.Number = 1045 Then
Screen.MousePointer = 0
pes = MsgBox("Password atau User Salah ", vbInformation, "Error Koneksi")
Exit Sub
End If
If koneksi.Error.Number = 2005 Then
Screen.MousePointer = 0
pes = MsgBox("Hostname Tidak Ditemukan", vbInformation, "Error Koneksi")
txtmasuk(1).text = ""
txtmasuk(2).text = ""
Exit Sub
End If
If koneksi.Error.Number <> 0 Then ShowError
If koneksi.State = MY_CONN_OPEN Then
BuatDB
Screen.MousePointer = 0
End If
End Sub