(System.Reflection.Assembly/LoadWithPartialName "System.Data") (import '(System.Data.OleDb OleDbConnection)) (import '(System.Data.OleDb OleDbCommand)) (import '(System.Data.OleDb OleDbDataReader)) (def conStr "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=hello.mdb") (def sqlStr "SELECT 'Hello, ADO.NET World!' AS Message") (def con (OleDbConnection. conStr)) (def cmd (OleDbCommand. sqlStr con)) (.Open con) (def reader (.ExecuteReader cmd)) (if (.Read reader) (do (System.Console/WriteLine (.GetName reader 0)) (System.Console/WriteLine "---------------------") (System.Console/WriteLine (.GetValue reader 0)) ) ) (.Close reader) (.Close con)