mit
Set rsAS400 = cmdAS400SQL.Execute
bekommst du einen datensatz zurück.

wie die syntax in vb aussehen muss, weis ich leider nicht. entweder mit F1 auf das objekt bzw. in der MSDN nachschauen gehen oder googlen.
vlt. gibts aber noch jemandem der sich da genau auskennt.