Koneksi Visual Basic Dengan MySQL

Sekedar mengingatkan dan catatan bagi kami pribadi, apabila merasa lupa dan bingung semoga ini menjadi solusi dan pencerahan.
Macam-macam koneksi Visual Basic 6 dengan DBMS, untuk kali ini saya post koneksi Visual Basic dengan MySQL dengan driver "MySQL Driver 5.1".

Saratnya tentu sudah teristall MySQL server,  MySQL Driver 5.1 dan tentunya Visual Basic 6-nya sendiri.
Buat satu buah project, langsung pilih menu Project >> pilih/klik Preference >> centang [] Microsoft Active Data Objects 2.8 Library.

Ini nama-nama DataBase-nya, saya pilih "laporan_kegiatan"  :

Ini contoh tabelnya "tbl_area"   :

Langsung dobel klik form project Visual Basic 6-nya, masukkan koding ini :
Option Explicit
Dim cOnn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Load()
Set cOnn = New ADODB.Connection
On Error GoTo Err

Set cOnn = New ADODB.Connection
cOnn.ConnectionString = "Provider=MSDASQL.1; Persist Security Info=False; DRIVER={MySQL ODBC 5.1 Driver}; DATABASE=laporan_kegiatan; OPTION=0; PORT=3306; SERVER=127.0.0.1; UID=root; PWD=;"
cOnn.Open
cOnn.CursorLocation = adUseClient

Set rs = New ADODB.Recordset
Err:
   If Not Err.Number > 0 Then
      rs.Open "SELECT * FROM tbl_area ORDER BY tbl_area.namaarea ASC", cOnn, adOpenDynamic, adLockReadOnly
      Dim i As Integer, ss As String
      For i = 1 To rs.RecordCount
         ss = rs!namaarea
         rs.MoveNext
         MsgBox ss
      Next

   Else
      MsgBox Err.Number
   End If
rs.Close 

End Sub

*  untuk hasilnya silahkan coba sendiri, serta kembangkan sendiri.