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