Saludos tengo el siguiente problema coloque las siguientes lineas de codigo para importar campos de access a excel
Private Sub Command1_Click()
Dim db As DAO.Database, rs As DAO.Recordset
Set ApExcel = CreateObject("Excel.Application")
Set db = OpenDatabase(App.Path & "\recibo_97.mdb")
Set rs = db.OpenRecordset("inquilino")
ApExcel.Workbooks.Open App.Path & "\libro1.xls"
ApExcel.Visible = True
With ApExcel
.Workbooks.Open App.Path & "\libro1.xls"
.Sheets(1).Activate
.Selection.SpecialCells(xlCellTypeLastCell).Select
x = .ActiveCell.Row + 1
y = 1
.Cells(x, y).CopyFromRecordset rs
End With
ApExcel.Visible = True
Set ApExcel = Nothing
Screen.MousePointer = vbDefault
End Sub
Pero quiero saber como modificarlo para solamente seleccionar ciertos campos de access y pasarlo a excel y no todos los que estan en la tabla.
Muchas gracias