Cara koneksi database MySQL dengan vb.6.0

Sebelum anda memulai buat program VB 6.0 dengan database MySQL, alangkah wajibnya  anda harus mengistall terlebih dahulu database MySQL nya tapi yang saya sarankan memakai XAMPP karena sudah paketan dan lebih praktis, dan yang kedua anda harus mengistall MySQL connector ODBC apapun versi nya tapi yang saya pakai versi MySQL connector ODBC 5.1, silahkan download MySQL connector ODBC 5.1 disini.....Sedotttttttt!!!
kemudian silahkan buat databasenya di MySQL contoh dengan nama database pos_db
Nah setelah syarat di penuhi maka silahkan anda buka program VB 6.0 nya,saat buka project cek terlebih dahulu referensi yang digunakan pada menu project > References dan harus di centang  seperti gambar dibawah ini:

Berikut kode daripada koneksi database MySQL dengan VB. 6.0

Kemudian anda ketik kode dibawah ini di Module

Option Explicit
Public CN As New ADODB.Connection

Sub koneksi()
Dim Reply As VbMsgBoxResult

On Error GoTo ERR_CONNECTION
    Set CN = New ADODB.Connection
    CN.CursorLocation = adUseClient
    CN.ConnectionString = "Driver={MYSQL ODBC 5.1 Driver};SERVER=localhost;PWD=;UID=root;PORT=3306;DATABASE=pos_db;"
    CN.Open
    Exit Sub
   
ERR_CONNECTION:
    Reply = MsgBox("Error Number : " & Err.Number & vbNewLine & "Description: " & Err.Description, vbExclamation + vbRetryCancel, "Connection Failure")
End Sub

Sub CloseMYSQL()
CN.Close
Set CN = Nothing
End Sub