[عدنان الشمري]

Try
Me.WindowState = FormWindowState.Maximized
Me.OleDbConnection1.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Application.StartupPath & "\m_lab.mdb;Jet OLEDBatabase Password=;"
Dim crtableLogoninfo As New TableLogOnInfo()
Dim crConnectionInfo As New ConnectionInfo()
Dim CrTables As Tables
Dim crReportDocument As New p_c_r()
With crConnectionInfo
.DatabaseName = db_manger.dblocation.Text
.Password = ""
End With
CrTables = crReportDocument3.Database.Tables
For Each CrTable In CrTables
crtableLogoninfo = CrTable.LogOnInfo
crtableLogoninfo.ConnectionInfo = crConnectionInfo
CrTable.ApplyLogOnInfo(crtableLogoninfo)
Next
CrystalReportViewer1.ReportSource = crReportDocument3
CrystalReportViewer1.RefreshReport()