اخي الغالي المشكله في هذه الكود
كود :
If rs.State = adStateOpen Then rs.Close
sql = " select * from [Table6] WHERE [n1]='" & Trim(Combo1.Text) & "' AND [n4]='" & Trim(Date) & "'"
rs.Open sql, db, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
Label4.Caption = rs![n2]
Label5.Caption = rs![n3]
Form3.Label2.Caption = Combo1.Text
Form3.Label3.Caption = Date
End Ifكود :
اذكرو الله سبحان الله وبحمده *سبحان الله العظيم