Sub Form1_Load() Dim DataAdapter1 As New OleDbDataAdapter("SELECT * FROM TABLE_NAME", CN) DataAdapter1.Fill(dt) DataAdapter1.Dispose() CN.Close() cryRpt.Load(Application.StartupPath & "\CrystalReport1.rpt") AssignConnection(cryRpt) cryRpt.SetDataSource(dt) CrystalReportViewer1.ReportSource = cryRpt End Sub