Private Sub Command1_Click()
Adodc1.Recordset.Filter = "n='" & Text3.Text & "'"If Adodc1.Recordset.EOF Then
MsgBox " NoT Fond"
Else
End If
End Sub[/code]
كود :
Adodc1.Recordset.Filter = ""MsgBox " NoT Fond"
Else
End If
End Sub[/code]
