require 'win32ole'

cn = WIN32OLE.new("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\Hello.mdb"
rs = cn.Execute("SELECT 'Hello, ADO World!' AS Message")

while !rs.EOF
    print rs.Fields[0].name + "n"
    print "-------------------n"
    print rs.Fields[0].value + "n"
    rs.MoveNext
end

rs.Close
cn.Close