Conexión DB Access

Aquí va un ejemplo comentado:
Este ejemplo utiliza las propiedades ActiveConnection, CommandText, CommandTimeout, CommandType, Size y Direction para ejecutar un procedimiento almacenado.
Public Sub ActiveConnectionX()
Dim cnn1 As ADODB.Connection
Dim cmdByRoyalty As ADODB.Command
Dim prmByRoyalty As ADODB.Parameter
Dim rstByRoyalty As ADODB.Recordset
Dim rstAuthors As ADODB.Recordset
Dim intRoyalty As Integer
Dim strAuthorID As String
Dim strCnn As String
' Define un objeto Command para un procedimiento almacenado.
Set cnn1 = New ADODB.Connection
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
cnn1.Open strCnn
Set cmdByRoyalty = New ADODB.Command
Set cmdByRoyalty.ActiveConnection = cnn1
cmdByRoyalty.CommandText = "byroyalty"
cmdByRoyalty.CommandType = adCmdStoredProc
cmdByRoyalty.CommandTimeout = 15
' Define el parámetro de entrada del procedimiento almacenado.
intRoyalty = Trim(InputBox( _
"Escriba los derechos de autor:"))
Set prmByRoyalty = New ADODB.Parameter
prmByRoyalty.Type = adInteger
prmByRoyalty.Size = 3
prmByRoyalty.Direction = adParamInput
prmByRoyalty.Value = intRoyalty
cmdByRoyalty.Parameters.Append prmByRoyalty
' Crea un objeto Recordset al ejecutar el comando.
Set rstByRoyalty = cmdByRoyalty.Execute()
' Abre la tabla Autores para obtener y mostrar los
' nombres de los autores.
Set rstAuthors = New ADODB.Recordset
rstAuthors.Open "autores", strCnn, , , adCmdTable
' Imprime los datos actuales del objeto Recordset
' al agregar los nombres incluidos en la tabla Autores.
Debug.Print "Autores con " & intRoyalty & _
" por ciento de derechos de autor."
Do While Not rstByRoyalty.EOF
strAuthorID = rstByRoyalty!au_id
Debug.Print , rstByRoyalty!au_id & ", ";
rstAuthors.Filter = "au_id = '" & strAuthorID & "'"
Debug.Print rstAuthors!au_fname & " " & _
rstAuthors!au_lname
rstByRoyalty.MoveNext
Loop
RstByRoyalty. Close
RstAuthors. Close
Cnn1. Close
End Sub