Många WHERE = ?

Jag har denna koppling till databasen:

<%

Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("lankar.mdb") %>
<% 
SQL = "SELECT * From lankar Where ID = " & Trim(Session("id")) & " "
Set rs = db.Execute(SQL)

%>

men jag vill ha flera WHERE i samma data bas koppling: ex.

<%

Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("lankar.mdb") %>
<% 
SQL = "SELECT * From lankar Where ID = " & Trim(Session("id")) & " AND haha = " & Trim(Session("namn")) & " "
Set rs = db.Execute(SQL)

%>

Snälla hjälp om försår vad jag menar

Tack i för hand!