'Iniciamos la conexión con la base de datos usando un objeto ADODB.Connection
Private Sub Iniciar_Base_Datos(ByRef dbConn As ADODB.Connection)
'Creamos el objeto conexión
Set dbConn = New ADODB.Connection
With dbConn
'Controlador de Oracle para Oracle, también podéis usar el de Microsoft, MSORADB.Oracle
'Microsoft.Jet.OLEDB.4.0 para Access
'SQLOLEDB o MSDASQL para SQL Server
.Provider = "OraOLEDB.Oracle"
'El nombre del origen de datos que hemos especificado en el administrador de datos de ODBC
.Properties("Data Source") = "Nombre_Origen_Datos"
'Usuario para el servidor de la base de datos
.Properties("User Id") = "usuario"
'Contraseña para el servidor de la base de datos
.Properties("Password") = "contraseña"
'Abrimos conexión
.Open
End With
End Sub