Membuat koneksi database acces dengan Visual basic 6

Sekian lama tidak kuliah Visual basic malam ini pelajarannya dengan intro lebih cepet jadi lebih menantang, heheh hari ini saya akan sedikit membagikan ilmu yang baru didapet malam ini yaitu Membuat koneksi database akses dengan Visual basic 6

Oke langsung saja

1. Kita buat database pada ms acces dengan dengan nama db_mahasiswa, buat field NIM (text 15), Nama (text 30), tempat_lahir(text 30),tanggal_lahir ( date/time) simpan dan close
2. Kita buat project baru pada VB6 dengan standart exe ( Untuk desain formnya kita lanjutkan di tutorial selanjutnya )
3. Kita buat module baru
 Klik kanan pada panel project -Add-module-Pilih module-open

4. Pastekan source kode berikut ini

Option Explicit
Public conn As ADODB.Connection
Public db_file As String
Public statement As String
Public Sub OpenMDB()
    On Error GoTo error
    db_file = App.Path
    If Right$(db_file, 1) <> "\" Then db_file = db_file & "\"
    db_file = db_file & "ganti_nama_database_kalian.mdb"
    ' Open a connection.
    Set conn = New ADODB.Connection
    conn.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & db_file & ";" & _
        "Persist Security Info=False;Jet OLEDB:Database Password="
    conn.CursorLocation = adUseClient
    conn.Open
    Exit Sub
error:
    MsgBox "Gagal Melakukan Koneksi Database!", vbCritical + vbOKOnly, "Gagal"
    End
End Sub
Public Sub CloseDB()
    On Error Resume Next
    conn.Close
End Sub

5.  klik menu project pilih reference - Pilih Microsoft Activex Data Object 2.0 Library lalu OK
6. Nah sekarang untuk koneksinya tinggal tambahkan

OpenMDB

 pada Form Load

Okeh sekian dulu udah ditinggalin temen temen kampus