[عمور2016]

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
Text1.Text = Adodc1.Recordset.RecordCount
End Sub
[هدا كود كم عدد السجلات المدخلة في ...ادود


Private Sub DataGrid1_DblClick()
Dim dblSum As Double
  
  Me.Adodc1.Recordset.MoveFirst
  Do While Not Me.Adodc1.Recordset.EOF
    dblSum = dblSum + Me.Adodc1.Recordset.Fields(2)
    Me.Adodc1.Recordset.MoveNext
  Loop
  Me.Print "Total: " & dblSum
  Adodc1.Refresh
  Me.Adodc1.Recordset.MoveFirst
End Sub
هدا كود جمع العمود 

اريد منكم كود البحث بين تاريخين .
كود (جمع البيانات المدخلة في اودك مثلا كم عدد الذكور ... جزاكم الله خيرا