My strSQL is missing something....

Data type mismatch in Criteria Expression

is the error I'm getting. I know it's something simple but I don't see it. Please let me know what I've done wrong. Thanks.

Code:

---

<%
Dim cnn
Dim rst
Dim ConnectString
Dim strSQL

Set cnn = Server.CreateObject("ADODB.Connection")
Set rst = Server.CreateObject("ADODB.Recordset")

intNPA = Request.Form("NPA")
intNXX = Request.Form("NXX")

ConnectString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\shared webs\art\new1\stingerdb\stingers.mdb"

strSQL = "SELECT * FROM stingers WHERE stingers.NPA=904 AND stingers.NXX=789"

cnn.Open ConnectString
rst.Open strSQL, cnn

Response.Write rst("CLLI")

%>

---

Database name=stingers.mdb
Table name=stingers
Table Fields = NPA, NXX, CLLI, IP

Another question I have is what would be the best way to set up a database populated with every areacode and exchange that would be easily updated in the future or easily added to?

Thanks for any help.