اخي الفاضل مشكلتي علي هذا الرابط
الكود الذى اضفته الي زر طلب التقارير
Private Sub command16_Click()
On Error Resume Next
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=aaa; Data Source=" & App.Path & "\db1.mdb"
Set rs = New ADODB.Recordset
Set rs = cnn.Execute("select * from tab1")
Set draf.DataSource = rs
draf.Show 1
cnn.Close
Set rs = Nothing
End Sub
ارجو مساعدتي ولك جزيل الشكر والتقدير والعرفان
