Dim recSite As Recordset
Dim wrkODBC As Workspace
Dim conOracle As Connection
Dim strCriteria As String
strCriteria = "ODBC;DSN=......."
Set wrkODBC = CreateWorkspace("newODBCWorkspace", "usr", "pwd", dbUseODBC)
Set conOracle = wrkODBC.OpenConnection("Connection1", dbDriverNoPrompt, ...