(import
    (rnrs)
    (ironscheme clr)
)
 
(clr-reference System)
(clr-reference System.Data)
 
(clr-using System)
(clr-using System.Data.OleDb)
 
(begin
    (define conStr "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=hello.mdb")
    (define sqlStr "SELECT 'Hello, ADO.NET World!' AS Message")
    (define con (clr-new OleDbConnection conStr))
    (define cmd (clr-new OleDbCommand sqlStr con))
    (clr-call OleDbConnection Open con)
    (define reader (clr-call OleDbCommand ExecuteReader cmd))
    (if (clr-call OleDbDataReader Read reader)
        (begin
            (clr-static-call System.Console WriteLine (clr-call OleDbDataReader GetName reader 0))
            (clr-static-call System.Console WriteLine "---------------------")
            (clr-static-call System.Console WriteLine (clr-call OleDbDataReader GetValue reader 0))
        )
    )
    (clr-call OleDbDataReader Close reader)
    (clr-call OleDbConnection Close con)
)