Koneksi VB 6 ke Database MYSQL menggunakan driver MYSQL ODBC 5.2w

Berikut ini coding untuk koneksi VB6 ke MYSQL :

Sebelumnya pastikan terlebih dahulu apakah driver yang akan digunakan telah terinstall atau belum di system. Bila belum, bisa download disini. 

1. Buat / Tambah sebuah module, lalu isikan syntax berikut ini ke dalam module

Option explicit

Public cn as new ADODB.Connection
Public rs as new ADODB.Recordset

Public Sub Connecter()
On Error GoTo err
Set Cn = New ADODB.Connection
Cn.ConnectionString = "Provider=MSDASQL.1;" _
                       & "Persist Security Info=False;" _
                       & "DRIVER={MySQL ODBC 5.2w Driver};" _
                       & "DATABASE=nama_database;" _
                       & "OPTION=0;" _
                       & "PORT=3306;" _
                       & "SERVER=127.0.0.1;" _
                       & "UID=root;" _
                       & "PWD=;"
Cn.Open
Cn.CursorLocation = adUseClient
End Sub
2. Lalu di Form pada sub Form_Load panggil Connecter yang telah di buat sebelumnya di Module. Berikut contohnya!!!

Private Sub Form_Load()
   Call Connecter
End Sub

3. Dan Project VB sudah bisa terkoneksi dengan database mysql.

4. Selamat mencoba.