Flera Where-satser

Jag har problem med följande kod:

If Request("KatId") = "" Then
  Visa = "SELECT * FROM Events WHERE StartDatum >= '" & date & "'" 
  Visa = Visa & " ORDER BY StartDatum, Tid"
		
ElseIf Request("KatId") <> "" Then
			
    KatIds = Request.Querystring("KatId")(1)
    For i=2 To Request.Querystring("KatId").Count
      KatIds = KatIds & "','" & Request.Querystring("KatId")(i)
    Next
			
  Visa = "SELECT * FROM Events WHERE KatId IN ('" & KatIds & "') AND WHERE StartDatum >= '" & date & "'"
  Visa = Visa & " ORDER BY StartDatum, Tid"
End If

Det är den nästa sista Visa-variabeln jag har problem med, där jag skriver AND WHERE. Kan man inte skriva så? (Antagligen inte). Hur ska jag annars få med villkoret om startdatum?

Desperat...