Sql sætninger skal samles til 1

Hvordan samler jeg følgende sql sætninger:

sql= "SELECT KundeID FROM Kunder WHERE Website = '" & Request.ServerVariables("HTTP_HOST") & "'"
rs.Open Sql, Conn, 1

Session("KundeID") = rs("KundeID")

Rs.Close
Set sql = Nothing

sql= "SELECT Titel FROM System WHERE KundeID =" & Session("KundeID") & ""
rs.Open Sql, Conn,1

Session("Titel") = rs("Titel")
Rs.Close
Set sql = Nothing