get query into a label

[LG]

When you are doing this:
lblTotalDatabaseReceived.Caption = "Select COUNT (*) From Master WHERE DATE_OPENED BETWEEN #" & strStartDate & "# and #" & strEndDate & "#"

you just passing a string and nothing else.
Just modify this code

Dim sql As String
sql = "select count(*) from products "
Data1.RecordSource = sql
Data1.Refresh
Label1.Caption = Data1.Recordset(0)