Dim vConnection     'ADODB.Connection
    Dim ADOEnterPrises     'ADODB.Connection
    Dim vRecordset      'ADODB.Recordset
    '---------------------------------------------------------------------------------------------------------
    Set vConnection = CreateObject("ADODB.Connection")
    vConnection.ConnectionString = "Provider=MSDAORA.1;Password=" + vPassword + ";Persist Security Info=True;User ID=" + vLogin + ";Data Source=" + vDBName + ";Connection Timeout=1000"
    vConnection.Open

    Set vRecordset = CreateObject("ADODB.Recordset")
    vRecordset.ActiveConnection = vConnection
    
    vRecordset.Source = "select 123 a from dual"
    vRecordset.Open
    Sheets(1).Select
    nRec = 1
    
    If Not vRecordset.BOF And Not vRecordset.EOF Then
        vRecordset.MoveFirst
        Do While Not vRecordset.EOF
          Range("A" + CStr(nRec)).Value = vRecordset!a
          nRec = nRec + 1
          vRecordset.MoveNext
        Loop
    End If
    vRecordset.Close
    Set vRecordset = Nothing
    vConnection.Close
    Set vConnection = Nothing