Solución 16.10 Importar algunos campos de una tabla Access (con ADO)

Sub ImportRegBDADOaExcel()  
  Dim ac As Access.Application  
  Dim cn As ADODB.Connection  
  Dim rs As New ADODB.Recordset  
  Dim intLineaExcel As Integer  
  Dim strRutaBase As String  
  
  Call Ruta  
  ’ Conexión a la base de datos BDClientes.mdb  
  Set cn = New ADODB.Connection  
  Set rs = New ADODB.Recordset  
  With cn  
    .Provider = "Microsoft.ACE.OLEDB.12.0"   ...