Here is what I did, This works well, and you don't open up the entire 
recordset just to get a count....

'set the sql string for the command
strManifestCount = "SELECT COUNT(*) AS MANCNT FROM File_X WHERE 
File_X.MANNO = " & strMyManno

cmdManifestCount.CommandText = strManifestCount
cmdManifestCount.Prepared = True
    
'set cursor location
Set rstManifestCount = New ADODB.Recordset
rstManifestCount.CursorLocation = adUseClient
    
    
'open the recordset
    
rstManifestCount.Open cmdManifestCount, , adOpenStatic, adLockReadOnly

'go top and read
rstManifestCount.MoveFirst

If rstManifestCount!MANCNT <> 0 Then
     do something
else
     don't
end if


Hope this helps, I am just starting with VB and accessing AS400 data, 
Please feel free to write me direct.  I would appreciate any help on this 
end you can give me!

Also, there is a SDK that come with client access, I just installed it 
yesterday, and seems to be a big help!

David

Dhay1999@y...