Problem in loop for recordset

Hi guys

I am getting a problem in the loop below. It doesn't display me each person's record. Can anyone please solve my problem.

Dim cn As ADODB.Connection
  Dim rs As ADODB.Recordset
  Dim r As Long
    ' connect to the Access database
   Set cn = New ADODB.Connection
   cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
        "Data Source=c:\abc.mdb;"
    ' open a recordset
      Set rs = New ADODB.Recordset

strsql = "Select Username,count(*) as 'Total Letters',max(Time1),min(time1) from tblmaster where Date1=# " & Format(DateSerial(ComboBox3, ComboBox2, ComboBox1), "mm/dd/yyyy") & " # group by Username"
          rs.Open strsql, cn
          J = ActiveSheet.UsedRange.Rows.Count
     
     ws.Cells(J + 5, 1).Value = "Username"
     ws.Cells(J + 5, 2).Value = "Total Letters"
          
          Do While Not rs.EOF
          dtmLower = rs.Fields(3)
          dtmupper = rs.Fields(2)
          dtmtotal = dtmupper - dtmLower
           
     ws.Cells(J + 6, 1).Value = rs.Fields(0)
     ws.Cells(J + 6, 2).Value = rs.Fields(1)
     ws.Cells(J + 6, 3).Value = dtmtotal
       
  rs.MoveNext
   J = ActiveSheet.UsedRange.Rows.Count
Loop

Thanks
Aman