Exportação de Dados de um formulario access para excel

Mestres boa tarde,
Estou com um banco de dados com a seguinte linha de comando

Dim rst As DAO.Recordset, strsql As String, strLivro As String, xls As Object
Set xls = CreateObject("Excel.Application")
strLivro = CurrentProject.Path & "\teste.xlsm"
xls.Workbooks.Open (strLivro)
xls.Visible = True
xls.Worksheets("plan1").Activate
strsql = "SELECT(AREA)FROM 10_PrecertId ORDER BY [COD];"
Set rst = CurrentDb.OpenRecordset(strsql, dbOpenDynaset)
xls.ActiveSheet.Range("G11").SELECT
xls.ActiveCell.CopyFromRecordset rst
xls.ActiveWorkbook.Save
xls.Application.Quit
Set xls = Nothing
End If
End Sub

O mesmo não funciona no formulario atual ou seja ele pega todos os campos AREA  e joga na determinada linha do excel.

* O QUE EU QUERO É QUE ELE PEGUE OS DADOS DO CAMPO AREA , MAIS APENAS DO FORMULARIO ATUAL.

FICAREI IMENSAMENTE GRATO COM A AJUDA DE VOCÊS.

PREZADOS SEI QUE ESSE JA É UM TOPICO PARECIDO COM OS DEMAIS , MAIS O QUE QUERO TEM UMA PEQUENA DIFERENÇA, QUERO QUE APENAS EXPORTE O REGISTRO ATUAL DO FORMULÁRIO.