count da inserire in una casella di testo

[jet]

Ho risolto in questo modo

Private Sub Form_Current()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String

stringDate1 = Format(Me!data_iniziale, "mm/dd/yyyy")
stringDate2 = Format(Me!data_finale, "mm/dd/yyyy")
If Not IsNull(Me!data_iniziale) And Not IsNull(Me!data_finale) Then

Set db = CurrentDb
strSQL = "SELECT Count(clientiinsalone.id) AS conteggiodiID21 FROM clientiinsalone WHERE (((clientiInSalone.data_cliente) >= #" & stringDate1 & "# AND (clientiInSalone.data_cliente) <= #" & stringDate2 & "#))"

Set rs = db.OpenRecordset(strSQL)

If Not rs.EOF Then
    Me.ConteggioPresenze = rs!ConteggiodiID21
Else
    Me.ConteggioPresenze = Null
End If

rs.Close

Set rs = Nothing

Set db = Nothing
End If
End Sub