[Ahmed_Mansoor]

أهلا بك أخي الكريم , تعديل جملة الإستعلام زر الطباعة كالتالي :

PHP كود :

Private Sub Command1_Click()

Dim zSQL As String

zSQL = "Select * From data Where name<>'ahmed' and name<>'samer'"

If rw.State = adStateOpen Then rw.Close
rw.Open zSQL, db, adOpenStatic, adLockPessimistic

With DataReport1
     Set .DataSource = rw
     .Refresh
     .Show
End With

End Sub