Sub DBConnetct()
    Dim MyDatabase As DAO.Database
    Dim rsCountry As DAO.Recordset
    Dim dbpath As String
    Dim wrb As Workbook
    Dim sht As Worksheet
    Dim c As Integer

    dbpath = "C:\TestDB.accdb"
    Set MyDatabase = DBEngine.OpenDatabase(dbpath, False, False, ";pwd=123")
    Set rsCountry = MyDatabase.OpenRecordset("SELECT * FROM tCountry")
    
    Set wrb = Workbooks.Add
    Set sht = wrb.Sheets(1)
    
    With sht
        .Name = "Country"
        .Range("A2").CopyFromRecordset rsCountry
        For c = 1 To rsCountry.Fields.Count
            sht.Cells(1, c).Value = rsCountry.Fields(c - 1).Name
        Next c
    End With
End Sub

Set MyDatabase = DBEngine.OpenDatabase(dbpath, False, False, "MS Access;pwd=123")