[مصمم هاوي]

جرب هذا الكود

كود :

Dim X As String
X = txtFind.Text

Unload ActiveReport1

ActiveReport1.DataControl1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\اسم قاعدة البيانات .mdb;Persist Security Info=False"

"ActiveReport1.DataControl1.Source = "Select * From Tabel1 Where Clas='" & Trim$(txtFind.Text)  & "' order by iD

ActiveReport1.Show

ActiveReport1.Visible = True