Membuat Koneksi ke Database dengan ADO di Visual Basic 6

Ada beberapa cara untuk membuat koneksi ke database dengan visual basic 6.0

Persiapan awal-Buat Module untuk membuat procedure buka koneksi:
Pilih -Menu Project -Add Module

Contoh-1:
Membuat koneksi untuk database Access.

Option Explicit
Public Conn as ADODB.Connection

Public Sub BukuDatabase()
Dim st As String
Set conn = New ADODB.Connection
st = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=C:\Directory\Nama_DB.mdb"
conn.Open st
End Sub

Note:

untuk mempermudah koneksi agar dapat menyesuaikan tempat directory/folder database anda harus menyimpan database satu directory denga Project yang anda buat. Ubah coding pada variabel "st"

st = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source= " & App.Path & "\Nama_DB.mdb"

Contoh-2:
Membuat Koneksi untuk Database MySQL.

Option Explicit
Public koneksi As ADODB.Connection

Public Function KoneksiDatabase() As Boolean
    KoneksiDatabase = False
   
    If Not koneksi Is Nothing Then
        If koneksi.State > 0 Then koneksi.Close
    End If
   
    On Error GoTo ErrKoneksi
   
    Set koneksi = New ADODB.Connection
    koneksi.CursorLocation = adUseServer

    koneksi.Open "Driver={mysql ODBC 3.51 Driver};" & _
    "Server=Localhost;Database=dbInventory;UID=root;PWD=password;"

    KoneksiDatabase = True
    Exit Function
   
ErrKoneksi:
    MsgBox " Koneksi database Error.. " & vbCr & vbCr & _
          Err.Description & Err.Number, vbCritical
End Function

Untuk koneksi dengan database access menggunakan Procedure() sedangkan koneksi database MySQL menggunakan Function(), cuma vaariasi aja mau pake yang mana? mana aja boleh. Semoga Bermanfaat!