VBA/Excel/Access/Word/Access/Oracle

connect to Oracle

   <source lang="vb">

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

</source>