Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "Provider=MSDAORA;Data Source=DatabaseAlias;User ID=UserID;Password=UserPassword"
'OLE DB connection
rs.CursorLocation = adUseClient
rs.Open "TableName", cn, adOpenStatic, adLockReadOnly, adAsyncFetch
If cn.State = adStateOpen Then
MsgBox "opened oracle"
End If
This is what I use.
Hope it helps,
Parke