mira vitucho tu problema es sencillo ahi te va un codigo, pero primero crea un modulo y declare todos los recorset sobre el en forma global como te lo voy a dar
aca espero que te sirva
Global rs_a As New ADODB.Recordset
Global rs_b As New ADODB.Recordset
Global rs_c As New ADODB.Recordset
Global rs_d As New ADODB.Recordset
Global rs_e As New ADODB.Recordset
Global rs_f As New ADODB.Recordset
Global rs_ten As New ADODB.Recordset
Global rstipo As New ADODB.Recordset
Public objExcel As EXCEL.Application
Public Numero_Registros2 As Long
Sub main() ' aqui declaras el sub main y para ejecutar empiza por el sub main
On Error GoTo OpenErr
With Conex
.CursorLocation = adUseClient
.Provider = "microsoft.jet.oledb.4.0"
.ConnectionString = "c:\ base.mdb" nivel local
.Open
End With
Picking.Show
Exit Sub
OpenErr:
MsgBox Conex.Errors(0).Description, , "ERROR " & Conex.Errors(0).Number
End Sub