How do I use TOP to query the latest 4 dates a patient had a visit as long as the dates were during the current month?

<%
 
Dim adoCon
Dim rs1, rs2
Dim strSQL, strSQL2
Dim subSQL
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("access_db\db.mdb")
Set rs1 = Server.CreateObject("ADODB.Recordset")
Set rs2 = Server.CreateObject("ADODB.Recordset")
 
currentYear=2008
currentMonth=10
i=0
 
strSQL = "Select * FROM tblPatients " & _
		 "WHERE tblPatients.location=" & Clng(Request.QueryString("unit")) & " " & _
		 "AND tblPatients.activeFlag = -1 " & _
		 "ORDER BY tblPatients.lname, tblPatients.fname;"
rs1.Open strSQL, adoCon
If Not rs1.EOF Then
	Response.Write(rs1("ID") & ", " & rs1("lname") & ", " & rs1("fname") & ", ")
	Do While Not rs1.EOF
		strSQL2 = "Select * FROM tblVisits " & _
				  "WHERE tblVisits.patientID=" & rs1("ID") & " " & _
				  "AND tblVisits.dateVisit >= #" & currentMonth & "/1/" & currentYear & "# " & _
				  "ORDER BY tblVisits.dateVisit DESC;"
		rs2.Open strSQL2, adoCon
		If Not rs2.EOF Then
			Do While i<=4
				Response.Write(rs2("dateVisit") & ", " & rs2("type") & ", " & rs2("initials") & "<br>")
				i = i + 1
				rs2.MoveNext
			Loop
		End If
		rs1.MoveNext
	Loop
End If
 
rs1.Close
rs2.Close
Set rs1 = Nothing
Set rs2 = Nothing
adoCon.Close
Set adoCon = Nothing
 
%>

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

If Not rs1.EOF Then
	Response.Write(rs1("ID") & ", " & rs1("lname") & ", " & rs1("fname") & ", ")
	Do While Not rs1.EOF
		strSQL2 = "Select * FROM tblVisits " & _
				  "WHERE tblVisits.patientID=" & rs1("ID") & " " & _
				  "AND tblVisits.dateVisit >= #" & currentMonth & "/1/" & currentYear & "# " & _
				  "ORDER BY tblVisits.dateVisit DESC;"
		rs2.Open strSQL2, adoCon
		If Not rs2.EOF Then
			Do While i<=4
				Response.Write(rs2("dateVisit") & ", " & rs2("type") & ", " & rs2("initials") & "<br>")
				i = i + 1
				rs2.MoveNext
				If i > 4 Then
					i=0
					Exit Do
				End If
			Loop
		End If
		rs1.MoveNext
	Loop
End If

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

If Not rs1.EOF Then
	Response.Write(rs1("ID") & ", " & rs1("lname") & ", " & rs1("fname") & ", ")
	Do While Not rs1.EOF
		strSQL2 = "Select * FROM tblVisits " & _
				  "WHERE tblVisits.patientID=" & rs1("ID") & " " & _
				  "AND tblVisits.dateVisit >= #" & currentMonth & "/1/" & currentYear & "# " & _
				  "ORDER BY tblVisits.dateVisit DESC;"
		rs2.Open strSQL2, adoCon
		If Not rs2.EOF Then
			Do While not rs2.EOF
				Response.Write(rs2("dateVisit") & ", " & rs2("type") & ", " & rs2("initials") & "<br>")
				i = i + 1
				rs2.MoveNext
				If i > 4 Then
					i=0
					Exit Do
				End If
			Loop
		End If
		rs1.MoveNext
	Loop
End If

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

If Not rs1.EOF Then
	Response.Write(rs1("ID") & ", " & rs1("lname") & ", " & rs1("fname") & ", ")
	Do While Not rs1.EOF
		strSQL2 = "Select * FROM tblVisits " & _
				  "WHERE tblVisits.patientID=" & rs1("ID") & " " & _
				  "AND tblVisits.dateVisit >= #" & currentMonth & "/1/" & currentYear & "# " & _
				  "ORDER BY tblVisits.dateVisit DESC;"
		rs2.Open strSQL2, adoCon
		If Not rs2.EOF Then
			Do While not rs2.EOF
				Response.Write(rs2("dateVisit") & ", " & rs2("type") & ", " & rs2("initials") & "<br>")
				i = i + 1
				rs2.MoveNext
				If i > 4 Then
					Exit Do
				End If
			Loop
		End If
		rs1.MoveNext
	Loop
End If

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21: