代码写到这里就出错了“没有为命令对象设置命令”

[jovr]

Dim adodc2 As New ADODB.Connection, sqlstr As String, adodc3 As New ADODB.Command
sqlstr = "select * frome datapath order id by dacs"
adodc2.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=resouce.mdb;Persist Security Info=False")
adodc3.ActiveConnection = adodc2
adodc3.CommandText = sql
rs = adodc3.Execute

求高人指教。

[jovr]

补充一下，是最后一行代码出错。

[GGL123]

set rs = adodc3.Execute

[victorycyz]

adodc3.CommandText = sqlstr '这里是不是也疏忽了？
set rs = adodc3.Execute

[tztz520]

\\sqlstr = "select * frome datapath order id by dacs"\\

frome 写错了,改为from

[tztz520]

还有.\\\\sqlstr = "select * frome datapath order id by dacs"\\
改为sqlstr = "select * frome datapath order by id desc"

[tztz520]

不好意思,应该改为sqlstr = "select * from datapath order by id desc"

[jovr]

上面说的问题都改过来了，谢谢各位。