Option Explicit Call Main() 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 WScript.Echo rs(0).Name WScript.Echo "-------------------" WScript.Echo rs(0).Value rs.MoveNext Wend rs.Close cn.Close End Sub