Set OraSess = CreateObject("OracleInProcServer.XOraSession")

Set OraDb = OraSess.DbOpenDatabase("oracle8","scott/tiger",0&)


Set Dyna = OraDb.CreateDynaSet("Select * from Emp",0&)
for i = 0 to Dyna.RecordCount
text1 = Dyna.Fields(0).Value
text2 = Dyna.Fields(1).Value
text3 = Dyna.Fields(2).Value
text4 = Dyna.Fields(3).Value

Dyna.DbMoveNext
Next i