Hi ;
I'm trying to connect and get daas from An As/400 flat file.
I've succeeded to connect Database and get datas from a flat of DB File.

But I have a problem with SQL. source code is below :

Dim conn_as400_str, conn_as400, rs_as400, sql, a

Set conn_as400 = CreateObject("ADODB.Connection")
conn_as400_str = "Provider=IBMDA400;Data Source=SYSTEMNAME"
conn_as400.Open conn_as400_str

Set rs_as400 = CreateObject("ADODB.Recordset")
sql = "Select * from LIBRARY/FILE(MEMBER) WHERE FIELDA LIKE '34%'"
rs_as400.Open sql, conn_as400

a = 0

Do While Not rs_as400.EOF
a = a + 1
Cells(1, 1).Value = a


There are ALL DATAS In the recordset. But I just want the datas which starts 34 (As I declared in SQL). Why doesnt work my SQL correctly ?
Must it be different SQL stsatment for AS/400 ?
Did I use WHERE wrong ?