generar reporte en word

[analoyra]

BUA!! sigo igual,
Call Conecta
Rs.Open "select *from comprobante ", cn, adOpenStatic, adLockOptimistic

With DataReport3
With .Sections("Seccion2").Controls
.Item("Etiqueta1").Caption = Rs.Fields(1)
End With
End With
Set DataReport3.DataSource = Rs
DataReport3.Show
End Sub

y en datareport3 seccion2 puse una etiqueta1..... y me sigue saliendo el cartel de "datafield vacio" incluso en lugar de rs.field(1) puse "Anabel"............pero igual....