VBA Excel Make Connection String To Ms.Access

Sebelum kita mengakses / execute connection database yang kita perlukan biasanya kita koneksikan dulu database dengan menggunakan koneksi string, sehingga kita bisa melakukan perintah perintah sql di database itu, atau ketika kita perlu mengakses recordset. Karena syarat recordset terhubung tentunya harus sudah ada data terhubung dulu dengan Connection String ke Database. Ini adalah contoh koneksi ke ms.access menggunakan vba macro script : 

Public Sub Make_Connection_Mdb()

On Error GoTo errBe

'************************************************************************

'* Procesure Name : Make_Connection_Mdb

'* Function       : Make Ado Connecton

'* Created by     : Kang Tedi

'* Date Created   : 2019-19-17

'* Place Created  : Depok, Jawabarat

'* Whatsapp       : 0818741734

'************************************************************************

    Dim strCon As String

    strCon = "Driver={Microsoft Access Driver (*.mdb)};" & _

                         "Dbq=data.mdb;" & _

                         "DefaultDir=" & wbMain.Path & ";" & _

                         "Uid=Admin;Pwd=t3d1;"

    strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & wbMain.Path & "\data\data.mdb;" & _

    "Jet OLEDB:Database Password=t3d1;"

    conAccess.ConnectionString = strCon

    conAccess.Open

    Exit Sub

errBe:

    MsgBox "Lokasi data salah, silahkanatur dulu!"

End Sub