I need to pull up a recordset with records older than 30 days from today's date. How do I do that?

here's my sql so far:

Code:
        sql2 = "SELECT TOP 10 URL, SubDate, Submitted FROM Sites WHERE Sites.SubDate < '" & strDat + 30 & "' AND  Sites.Submitted = '" & strNoSubmit & "' ORDER BY Category"
thanks