'
' call application.VBE.activeVBProject.references.addFromGuid("{B691E011-1797-432E-907A-4D8C69339129}", 6, 1)
'
option explicit
sub main()
dim dbUser as string : dbUser = "rene"
dim dbPassword as string : dbPassword = "rene"
dim dataSource as string : dataSource = "ora19"
dim provider as string : provider = "OraOLEDB.Oracle"
dim con as new adodb.connection
con.open ( _
"Provider=" & provider & _
";User ID=" & dbUser & _
";Password=" & dbPassword & _
";Data Source=" & dataSource )
dim rs as adodb.recordSet
set rs = con.execute("select * from tq84_data_one")
cells(1,1).copyFromRecordset rs
end sub