Hello, DAO World! (VBScript + DAO + ACE)

Hello.vbs

Option Explicit

Call Main()

Sub Main()
    Dim dbe
    Dim db
    Dim rs
    
    Set dbe = CreateObject("DAO.DBEngine.120")
    Set db = dbe.OpenDatabase("Hello.accdb")
    Set rs = db.OpenRecordset("SELECT 'Hello, DAO World!' AS Message")
    
    While Not rs.EOF
        WScript.Echo rs(0).Name
        WScript.Echo "-----------------"
        WScript.Echo rs(0).Value
        rs.MoveNext
    Wend
End Sub