Timeout på script

Hvorfor få jeg timeout på scriptet her:

SQLstmt = "Select * FROM users"
  Set Users = Conn.Execute(SQLstmt)
  Do While Not Users.EOF
    rsSQL = "SELECT * FROM wmUser where popUsername = '" & Users("username") & "'"
    set rs = ConnAcc.execute(rsSQL)
    If Not (rs.BOF Or rs.Eof) Then
    else
    Sql = "INSERT INTO wmUser (webmailMailAccount, popUsername, name, dateCreated, numberOfLogins, webmailMailServer, webmailMailPwd) VALUES('" & Users("Username")  & "','" & Users("Username") & "','" & Users("RealName") & "','" & now() & "','0','xxxxxx','" & Users("password") & "')"
    ConnAcc.Execute Sql
    set sql = nothing
    Users.MoveNext
    end if
  Loop

den der læses først fra er en mysql, mens den der skrives til er access