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 = 1



 Send instant messages to your online friends http://uk.messenger.yahoo.com 

[Non-text portions of this message have been removed]

Kirim email ke