老兄我是这样做的:
cmd.commandtext="flyhua '" & trim(txtdydh.text) & "'"
set adorecordset = cmd.execute
set datagrid1.datasoutce=adorecordset
好象就OK了,不知你的储存过程中是否只有SELECT 语句。