Memanggil laporan vb berdasarkan No surat

Laporan pemanggil berdasarkan Nosurat

Private Sub Command1_Click()

Kwitansi.ReportFileName = App.Path & "\Kwitansi.Rpt"

Kwitansi.SelectionFormula = "{pinjaman.NoSurat}= '" & Text1.Text & "'"
Kwitansi.Formulas(0) = "Kepala='" & Text2.Text & "'"
Kwitansi.Formulas(1) = "Bendahara='" & Text3.Text & "'"
Kwitansi.Action = 1
End Sub


keteranga :
Kwitansi.ReportFileName = App.Path & "\Kwitansi.Rpt" == kwintasi nama crystal report1 yang diubah menjadi kwintasai=== App.Path & "=== letak laporan lasung dekat projek vb yang dibuat ==
Kwitansi.Rpt"=== nama laporan yang dibuat.
Kwitansi.SelectionFormula = "{pinjaman.NoSurat}= '" & Text1.Text & "'" ==== dimana nama yang mau kita panggil di laporan yang kita buat sesuai dengan nama yang kita berikan seperti "{pinjaman.NoSurat}== kata pinjaman berasal dari kita buat biasanya kebanyakan dia diberi bernama ado.  Nosurat=== nama database yang dipanggil...
========================================

Kwitansi.Formulas(0) = "Kepala='" & Text2.Text & "'"
Kwitansi.Formulas(1) = "Bendahara='" & Text3.Text & "'
===========================================
Formulas yang dibuat berdasarkan Formula uang kita bikin....
Kwitansi.Action = 1=== karna kita ada 2 buah formula kalau satu kita cukup 0 aja diisi
sekian=====