Option Explicit

Sub test()
    
    Const FILE_NAME_DB As String = "Score.accdb"
'    Const FILE_NAME_DB As String = "Score.mdb"
    Const PROVIDER_ACCESS As String = "Microsoft.Ace.OLEDB.12.0"
    
    Dim i As Long
    Dim sProvider As String
    Dim sDataSource As String
    Dim sConnection As String
    Dim adoConn As New ADODB.Connection
    Dim rsData As ADODB.Recordset
    Dim sData As String
    
    '情報収集
    sProvider = "Provider=" & PROVIDER_ACCESS & ";"
    sDataSource = "Data Source=" & ThisWorkbook.Path & "\" & FILE_NAME_DB & ";"
    sConnection = sProvider & sDataSource
    
    'データベースへ接続
    Call adoConn.Open(sProvider & sDataSource)
    
    'データを取得
    Set rsData = adoConn.Execute("SELECT * FROM tblScore;")
    Do Until rsData.EOF
        sData = ""
        For i = 1 To rsData.Fields.Count
            sData = sData & rsData(i - 1).Value & ","
        Next
        Debug.Print Left(sData, Len(sData) - 1)
        rsData.MoveNext
    Loop
    Call rsData.Close
    Set rsData = Nothing
    
    'データベースを閉じる
    Call adoConn.Close
    
    'Connectionを開放(破棄)
    Set adoConn = Nothing
    
End Sub