Expected statement

Microsoft VBScript compilation error '800a0400'

[taknet]

Dear my friends:
Hi:

When i run my recive.asp file on my iis, i see Microsoft VBScript compilation error '800a0400'.
Please help me.

recive source:
<%
set conn = server.createobject("adodb.connection")
database = "..\..\private\tak-sms.mdb"
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath(database)
Set rs = server.CreateObject("ADODB.Recordset")
rs.open "select * from users", Conn,1,3
Set rs2 = server.CreateObject("ADODB.Recordset")
rs2.open "select * from inbox", Conn,1,3
%>
<%
mystring = request("text")
myarray = Split(mystring, " ", 2)
%>

<%While Not rs.eof%>
<%
if myarray(0)=rs("username") Then
session("username")=myarray(0)
rs2.addnew
rs2("sender")=request("from")
rs2("reciver")=session("username")
rs2("message")=myarray(1)
rs("date")=now()
rs2.update
%>
<%
rs.movenext
Wend
%>

[syber]

What line number did the error message refer to?