Report1.Dictionary.Connections(0).ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Application.StartupPath & "\keuangan.mdb;User ID=Admin;Jet OLEDB:Database Password=+"
Report1.Preview = PreviewControl1
Report1.Show()
Application.StartupPath & "\keuangan.mdb;User ID=Admin;Jet OLEDB:Database Password=+"
Report1.Preview = PreviewControl1
Report1.Show()