Visual Basic - PROBLEMA EN CONSULTA VB6.0 CONTRA BBDD ACCESS 2003

Uso VB 6.0 con Access 2003, y hago esta consulta

Set rsCategoriaPadre = db.OpenRecordset("Select * from CATEGORIAS_PADRE where CATEGORIA_PADRE='" & Trim(txtCategoriaPadre) & "'")

Siendo CATEGORIA_PADRE un campo texto de 40 caracteres de la tabla CATEGORIAS_PADRE y txtcategoriaspadre un texbox de tamaño máximo 40 caracteres

pues me da el error "13" de que no coinciden los tipos

¿como se puede solucionar?

si el campo a comparar es numérico en vez de texto ¿me pueden poner algún ejemplo de como se haría?

muchas gracias.

SE hace igual , solo que no debes poner comilla simple ni delante ni detras del campos de busqueda.

si txtCategoriaPadre es un entero

Set rsCategoriaPadre = db.OpenRecordset("Select * from CATEGORIAS_PADRE where CATEGORIA_PADRE=" & Clng(txtCategoriaPadre)) si txtCategoriaPadre es un DoubleSet rsCategoriaPadre = db.OpenRecordset("Select * from CATEGORIAS_PADRE where CATEGORIA_PADRE=" & Cdbl(txtCategoriaPadre))

Con Cdbl logras que si el campo txtCategoriaPadre tiene el valor 1.246,75 (con coma separadora de decimales que daria error en el query) se quedaria como 1246.75