Sub Oracle()
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
With conn
.Provider = "MSDAORA"
.ConnectionString = "Data Source=Catwoman;User ID=steve;Password=steve"
.Mode = adModeRead
.Open
End With
MsgBox "Connected to " & conn.Provider, vbInformation
End Sub