ADO是ActiveX Data Objects的縮寫，是一種用于訪問和更新數據的COM組件。ADO提供了一種簡單一致的編程接口，可用于訪問多種數據存儲源，包括這里要討論的Oracle數據庫。

在使用ADO訪問Oracle數據庫時，我們需要引入Oracle Provider for OLE DB。這是一種OLE數據庫驅動程序，它實現了對Oracle數據庫的訪問，并提供了一些可供程序員使用的對象、方法和屬性。

Dim conn As New ADODB.Connection
conn.Provider = "OraOLEDB.Oracle"
conn.Properties("Data Source").Value = "OracleSID"
conn.Properties("User ID").Value = "username"
conn.Properties("Password").Value = "password"
conn.Open

上面的代碼演示了如何使用ADO連接Oracle數據庫。其中，“OraOLEDB.Oracle”是Provider的名稱，用于指定要使用哪種OLE數據庫驅動程序。OracleSID、username和password則是需要連接的數據庫實例、用戶名和密碼。

ADO提供了一個 Recordset 對象來處理從數據庫檢索出來的數據。我們可以使用 Recordset 對象來執行 SQL 查詢，并將查詢結果存在其中。下面是一個例子：

Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM employees WHERE salary >5000", conn
If Not rs.EOF Then
Do While Not rs.EOF
Debug.Print rs("employee_name") & ", " & rs("salary")
rs.MoveNext
Loop
End If
rs.Close

這個例子中，我們使用 Recordset 對象執行了一條 SQL 查詢，選出了工資高于 5000 的員工。在循環中，我們將每個查詢結果打印出來。

ADO還提供了一些方法，用于執行 INSERT、UPDATE 和 DELETE SQL 語句。這些方法不需要返回結果集，只需要執行數據庫操作即可。

Dim sql As String
sql = "INSERT INTO employees (employee_name, salary) VALUES ('Bob', 7000)"
conn.Execute sql

上面的代碼演示了如何使用 ADO 執行一個INSERT語句。其中，我們將一條新紀錄插入到 employees 表中。

總的來說，ADO 提供了訪問 Oracle 數據庫的強大功能。它可以幫助我們輕松地執行 SQL 查詢、更新和插入操作等。另外，ADO 還有很多其他的用法，比如可以處理存儲過程、事務、參數化查詢等，可以讓我們更加方便地訪問 Oracle 數據庫。