Dim cnnConn As ADODB.Connection
Dim rstRecordset As ADODB.Recordset
Dim cmdCommand As ADODB.Command

' Open the connection.
Set cnnConn = New ADODB.Connection
With cnnConn
    .ConnectionString = "ODBC;DRIVER={Microsoft ODBC for Oracle};UID=scott;PWD=tiger;SERVER=MYBASE_LOCALHOST.INTELLEX.RU;"
    .Open
End With

Dim con As New ADODB.Connection
con.Provider = "OraOLEDB.Oracle"
con.ConnectionString = "FetchSize=200;CacheType=Memory;" & _
                       "OSAuthent=0;PLSQLRSet=1;Data Source=MyOraDb;" & _
                       "User ID=scott;Password=tiger;"
con.Open

Sub EmpData()

Dim OraSession As Object
Dim OraDatabase As Object
Dim EmpDynaset As Object

Dim flds() As Object
Dim fldcount As Integer

 Set OraSession = CreateObject("OracleInProcServer.XOraSession")
 Set OraDatabase = OraSession.OpenDatabase("ExampleDb", "scott/tiger",  0 &)
 Set EmpDynaset = OraDatabase.CreateDynaset("select * from emp",  0 &)
 
 Range("A1:H15").Select
 Selection.ClearContents
 
  'Declare and create an object for each column.
  'This will reduce objects references and speed
  'up your application.
 fldcount = EmpDynaset.Fields.Count
 ReDim flds( 0  To fldcount -  1 )
 For Colnum =  0  To fldcount -  1 
  Set flds(Colnum) = EmpDynaset.Fields(Colnum)
 Next

 
 'Insert Column Headings
 For Colnum =  0  To EmpDynaset.Fields.Count -  1 
  ActiveSheet.Cells( 1 , Colnum +  1 ) = flds(Colnum).Name
 Next
 
 'Display Data
 For Rownum =  2  To EmpDynaset.RecordCount +  1 
  For Colnum =  0  To fldcount -  1 
   ActiveSheet.Cells(Rownum, Colnum +  1 ) = flds(Colnum).Value
  Next
  EmpDynaset.DbMoveNext
 Next
 
Range("A1:A1").Select
 
End Sub

Sub ClearData()
 Range("A1:H15").Select
 Selection.ClearContents
 Range("A1:A1").Select
End Sub