using this function:
<script language="VBScript" runat="Server">
FUNCTION CheckString (s, endchar)
pos = InStr(s, "'"

While pos > 0
s = Mid(s, 1, pos) & "'" & Mid(s, pos + 1)
pos = InStr(pos + 2, s, "'"

Wend
CheckString="'" & s & "'" & endchar
END FUNCTION
</script>
you can call it when you are creating your select statement to replace the apostrophe like this:
sql = "INSERT INTO Projects (" &_
"category, " &_
"priority) " &_
"VALUES ( "
sql = sql & CheckString(Request("category"

,","

sql = sql & CheckString(Request("priority"

, "

"

Set Conn = Server.CreateObject("ADODB.Connection"

Conn.Open "Projects"
Conn.Execute(sql)