AS/400 - URGENTE!!! AS400 y Visual Basic

hola a todos, estoy tratando de hacer una aplicación que se conecte con AS400, estoy utilizando lo que se llama ADO en Visual Basic, pero tengo problemas con lo siguiente:

strCadena = "Select * From UsuarLrt Where CHAR(SECT) => " & Trim(Mid(txtCtaIni.Text, 1, 2)) & _
" And CHAR(SECT) =< " & Trim(Mid(txtCtaFin.Text, 1, 2)) & _
" And CHAR(MANZA) => " & Trim(Mid(txtCtaIni.Text, 3, 3)) & _
" And CHAR(MANZA) =< " & Trim(Mid(txtCtaFin.Text, 3, 3)) & _
" And CHAR(LOTE) => " & Trim(Mid(txtCtaIni.Text, 6, 2)) & _
" And CHAR(LOTE) =< " & Trim(Mid(txtCtaFin.Text, 6, 2)) & _
" And CHAR(TOMA) => " & Trim(Mid(txtCtaIni.Text, 8, 2)) & _
" And CHAR(TOMA) =< " & Trim(Mid(txtCtaFin.Text, 8, 2)) & _
" And CHAR(DIGI) => " & Trim(Mid(txtCtaIni.Text, 10, 1)) & _
" And CHAR(DIGI) =< " & Trim(Mid(txtCtaFin.Text, 10, 1))

rstImportCtas.Open strCadena, conImportCtas, adOpenDynamic, adLockOptimistic

pues me marca que el signo > no valido......

alguien me puede ayudar???, se los agradezco de antemano, muchas gracias...saludos...

Te recomiendo que evalues la exprecion que tecleaste con el depurador para verificar que se correcta la sintaxis.

Creo que el error que te da es por que utilizas => y es >=
si te estas conectando con ODBC .......