Option Explicit

Sub Main()
    Dim cn
    Dim rs

    Set cn = CreateObject("ADODB.Connection")
    cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=.hello.mdb"
    Set rs = cn.Execute("SELECT 'Hello, ADO World!' AS Message")

    While Not rs.EOF
        Debug.Print rs(0).Name
        Debug.Print "-------------------"
        Debug.Print rs(0).Value
        rs.MoveNext
    Wend

    rs.Close
    cn.Close
End Sub