coba pakai yang ini mudah mudahan bisa membantu
Cr1.Connect ="Data Source=surat;uid=sapwd=sa;"
Cr1.ReportFileName=App.Path & "\disposisi.rpt"
Cr1.SelectionFormula="{suratmasuk.tglmasuk}='" & Day(DTPicker1.Date)
Month(DTPicker1.Date) Year(DTPicker1.Date)'"
Cr1.RetrieveDataFiles
Cr1.Action = 1Send instant messages to your online friends http://uk.messenger.yahoo.com [Non-text portions of this message have been removed]
