10-04-13, 07:38 PM
ضع الكود التالي في الكوماند
كود :
Label1.Caption = "0"
If rs.State = 1 Then rs.Close
rs.Open "SELECT SUM(many) as total FROM tot where da='" & Text2.Text & "'", db, adOpenKeyset, adLockPessimistic
Label1.Caption = rs!total
rs.Close
