Dim cmd As New OracleCommand
  Dim reader As New OracleDataReader
  Dim myConnection As New OracleConnection
  Dim i As Integer
  cmd = OracleCommand("select 1 from dual")
  cmd.Connection = myConnection
  myConnection.Open ("Data Source=test;User ID=test;Password=test")
  reader = cmd.ExecuteReader
  reader.Read
  For i = 0 To reader.FieldCount - 1
      Cells(i, 1) = reader.GetDataTypeName(i)
      Cells(i, 2) = reader.GetName(i)
      Cells(i, 3) = reader.GetFieldType(i).FullName
  Next i
  reader.Close
  myConnection.Close