[مصمم هاوي]

كود :

Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\" & "data.mdb;" & "Jet OLEDB:Database Password=123;"
Set rs = New ADODB.Recordset
rs.Open " select * from Tabel1 ", cn, adOpenStatic, adLockReadOnly
DataReport1.Orientation = 2
Set DataReport1.DataSource = rs
DataReport1.Caption = "عنوان التقرير"
DataReport1.Show