Visual Basic - query con ADO

quiero preguntar lo siguiente, en la conexión que hago con ADO al sistema de AS400, quiero hacer un query, tengo lo siguiente:

rstImportCtas.Open "Select Format(SECT,'00') + Format(manza,'000') + Format(lote,'00') + Format(toma,'00') + Format(digi,'0') as cuenta From UsuarLrt Where cuenta = '0200110005'", conImportCtas, adOpenDynamic, adLockOptimistic

resulta que en la aplicación el usuario final va a utilizar números de cuenta por ejemplo el 0200110005, bueno, en la tabla de AS400 los campos están divididos y el ejemplo quedaría así 2 1 10 0 5, entonces, utilizo el FORMAT para poder comparar el valor del TextBox con los campos de la tabla, pero me dá como resultado el siguiente error:

Run-time error '-2147217865 (80040e37)
{IBM]{Controlador ODBC de Client Access (32 bits)][DB2/400 SQL] SQL0204 - FORMAT en *LIBL de tipo *N no encontrado

espero, que pudieran sugerirme que hacer o la forma en que puedo hacer el query, de antemano muchas gracias.....

Tienes que hacer lo siguiente

Dim xCta as string

xCta = Format(mid(txtCta,1,2),'#0') & Format(mid(txtCta,3,3),'##0') & Format(mid(txtCta,6,2),'#0') & Format(mid(txtCta,8,2),'#0') & Format(mid(txtCta,10,1)5,'0')

rstImportCtas.Open "Select Format(SECT,'00') + Format(manza,'000') + Format(lote,'00') + Format(toma,'00') + Format(digi,'0') as cuenta From UsuarLrt Where cuenta = '" & xCta & "'", conImportCtas, adOpenDynamic, adLockOptimistic

La idea es separar el cambpo txtCta del textbox y darle formato antes de ponerlo en la string.

Saludos desde Lima