สอบถามเกี่ยวกับ [Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression

<% id=request.querystring("id")

Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("database.mdb"),"" , ""
strSQL = "SELECT * FROM Movie WHERE type=" & id & " order by name ASC"
Set rsTable = Server.CreateObject("ADODB.Recordset")
rsTable.Open strSQL, Conn, 1,3

If rsTable.EOF Then
Response.write ("<div align=""center""><br><font size=""2"" color=""#FFFFFF""><b>ไม่พบ ข้อมูล ใดๆ</b></font><br><br><font color=""#FFFFFF"">อาจเนื่องจากติดต่อ ฐานข้อมูลไม่ได้ <br><br><font color=#FF0000>หรือท่านไม่มีสิทธิ์เข้าถึงข้อมูล</font></font><br><br><font size=""2"" color=""#CCFF00""><b>กรุณาลองใหม่อีกที ในคราวหน้า</b></font><br><br><br></div>")  
Else
	
Dim PageLen,PageNo,TotalRecord,TotalPage,No,intID
PageLen = 20
PageNo = Request.QueryString("Page")
if PageNo = "" Then PageNo = 1
TotalRecord = rsTable.RecordCount
rsTable.PageSize = PageLen
TotalPage = rsTable.PageCount
rsTable.AbsolutePage = PageNo
%>

Function ReplaceNull(str)
  IF Cstr(str) = "" Then
    Return 0
  Else
    Return str
  End IF
End Function


strSQL = "SELECT * FROM Movie WHERE type=" & ReplaceNull(id) & " order by name ASC"