formumdan excele aktarmak için açılan kutudan yararlanmak istiyorum. buton altındaki kod bu

 If IsNull(Me.rapor) Or Me.rapor = "" Then

   MsgBox ("Lütfen,bir seçim yapınız..."), vbCritical, "SEÇİM YAPILMAMIŞ UYARISI"

   Exit Sub

 Else



On Error GoTo Komut13_Click_Err



    DoCmd.OutputTo acQuery, Me.rapor.Column(3), "MicrosoftExcel(*.xls)", "", False, "", 0





Komut13_Click_Exit:

    Exit Sub



Komut13_Click_Err:

    MsgBox Error$

    Resume Komut13_Click_Exit

End If

me.rapor.column(3) yazan yere direk sorgunun ismini yazdığım zaman hatası olarak aktarıyorum. ancak bu şekilde almak istediğimde şeklinde hata alıorum. 
bunu nasıl aşabilirim.
bu şekilde bir kod kullandım. "Bir nesne üzerinde çağırmayı denediğiniz yöntem başarısız " hatası verdi.