[VB]如何取得CONNECTtion.execute 所傳回的資料集?(編號:429)

請問大家
我寫了這樣的程式:
dim cn as adodb.connection
dim rsmyqry as adodb.recordset
dim myqry as string
my qry="select * from a1
sub command1_click()
cn.connectstring="dsn=a1"
cn.open
cn.execute myqry
set rsmyqry =cn.execute myqry
do while not rsmyqry.eof
print rsmyqry(0)..'
loop
rsmyqry.close
set rsmyqry=nothing
cn.close
set cn=nothing
end sub
請問為甚麼會出現"語法錯誤"及"必須是陳述的結尾呢?"