Option Explicit

Sub Main()
    Dim dbe
    Dim db
    Dim rs
    
    Set dbe = CreateObject("DAO.DBEngine.36")
    Set db = dbe.OpenDatabase("Hello.mdb")
    Set rs = db.OpenRecordset("SELECT 'Hello, DAO World!' AS Message")
    
    While Not rs.EOF
        Debug.Print rs(0).Name
        Debug.Print "-----------------"
        Debug.Print rs(0).Value
        rs.MoveNext
    Wend

    rs.Close
    db.Close
End Sub