Dim PROVIDER_ACCESS 'As String
Dim FILE_NAME_DB 'As String

Dim FSO 'As Scripting.FileSystemObject
Dim sFolderPath 'As String
Dim sProvider 'As String
Dim sDataSource 'As String
Dim adoConn 'As New ADODB.Connection
Dim rsData 'As ADODB.Recordset

'定数値
FILE_NAME_DB = "Score.accdb"
'FILE_NAME_DB = "Score.mdb"
PROVIDER_ACCESS = "Microsoft.Ace.OLEDB.12.0"

'オブジェクトの生成
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
Set adoConn = WScript.CreateObject("ADODB.Connection")
'Set rsData = WScript.CreateObject("ADODB.Recordset")

'情報収集
sFolderPath = FSO.GetFolder(".").Path
sProvider = "Provider=" & PROVIDER_ACCESS & ";"
sDataSource = "Data Source=" & sFolderPath & "\" & 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)
    Msgbox Left(sData, Len(sData) - 1)
    rsData.MoveNext
Loop
Call rsData.Close
Set rsData = Nothing

'データベースを閉じる
Call adoConn.Close

'Connectionを開放(破棄)
Set adoConn = Nothing

Msgbox "終了"