problemas al insertar

[LinosINK]

Hola a todos, estoy insertando en ASP, tengo el siguiente código:

Código:

Set Cn = Server.CreateObject("ADODB.Connection")
	Cn.Open "DSN=midominio"
	Set rs = Cn.execute ("SELECT Campo FROM TABLA")

if rs.bof and rs.eof then
	ExpT = 1
else
	ExpA = rs.Fields("Campo")
	ExpT = ExpA + 1
end if

rs.close
cn.close

Luego lo quiero insertar en una tabla:

Código:

Set Cn = Server.CreateObject("ADODB.Connection")
Cn.Open "DSN=midominio"
Set rs = Cn.execute ("SELECT * FROM TABLA where campo= ExpA")
cad="insert into TABLA values(ExpT)"
set rs=cn.execute(cad)

rs.close
cn.close

Lo que hago es mirar si el campo esta vacio o no, si esta vacio lo pongo a uno y sino le incremento uno, en esa tabla solo tengo un campo y es numerico, y quiero ir incrementandole uno según inserte, pero me da error, creo que es al insertar la variable numérica pero lo cambie mil veces y nada, me dice que se esperaba mas o que no coinciden los tipos,alguien me puede ayudar???

Gracias a todos.

[gorka_arai]

Prueba asi:

Código:

Set rs = Cn.execute "SELECT * FROM TABLA where campo= '" & ExpA & "'"

[LinosINK]

asi no tira, me sale el error:

Código:

Microsoft OLE DB Provider for ODBC Drivers error '80040e07' 

[Microsoft][Controlador ODBC Microsoft Access] No coinciden los tipos de datos en la expresión de criterios.

con

Código:

campo= '" & ExpA & "'"

creo que se asigna si el campo de la tabla es texto, como seria para campo numerico?

Gracias por responder.

[AlZuwaga]

como seria para campo numerico?

Igual pero sin los apóstrofes