Membuat Koneksi Database Dengan Module Aplikasi Pembelian

Berikut langkahnya :
Buka Project Aplikasi Pembelian anda sebelumnya :

Klik Project - Add Module

Klik Open
Kemudian masukan koding dibawah pada Module1

Public Koneksi As New ADODB.Connection
Public RSAdmin As ADODB.Recordset
Public RSSupplier As ADODB.Recordset
Public RSBarang As ADODB.Recordset
Public Sub BukaDB()
 Set Koneksi = New ADODB.Connection
 Set RSAdmin = New ADODB.Recordset
 Set RSSupplier = New ADODB.Recordset
 Set RSBarang = New ADODB.Recordset
 Koneksi.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\DBPembelian.accdb"
End Sub

Klik Save dan OK 
Dengan langkah datas, anda telah sukses membuat Koneksi database Access dengan Module