Report1.Dictionary.Connections(0).ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" & _
        Application.StartupPath & "keuangan.mdbUser ID=AdminJet OLEDB:Database Password=+"
        Report1.Preview = PreviewControl1
        Report1.Show()
        Application.StartupPath & "keuangan.mdbUser ID=AdminJet OLEDB:Database Password=+"
        Report1.Preview = PreviewControl1
        Report1.Show()
Komentar