General :: Connect Date Range With Other Criteria In SQL

I have the following function which works well except when I want to run a search using date range and any other criteria on another text/listbox or combo box.

This is work i get in the immediate window (Where Status, TypeID, PurposeID are the other criterias used with the date range.):

Code:
WHERE ([Incident_Date] Between #02/06/2012# AND #02/06/2012#)[Status] LIKE '*Active*' AND [TypeID] Like '*1*' AND [PurposeID] Like '*2*'

And the Build Function is as follows:

Code:
Private Function BuildFilter() As Variant
Dim varWhere As Variant
Dim strField As String 'for the date field
varWhere = Null ' Main filter

[Code] .....