如何動態設定dataenvironment的connection及command(編號：6844)

我在寫有關如何動態更改dataenvironment的command的SQL陳述式時,我先增加一個dataenvironment並加入一個新的connection及command
並在 Form_Load()事件中設定如下:

Private Sub Form_Load()
dim connstr as string

connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & app.path & "\db\test.mdb;Persist Security Info=False"
　　DataEnvironment1.Connection1.ConnectionString = connstr
　　DataEnvironment1.Commands("command1").CommandType = adCmdText
　　　　　　　　　　　^^^^^^^^^^^^^^^^^^^
　　DataEnvironment1.Commands("command1").CommandText = "SELECT * FROM CUSTOM"
　　DataEnvironment1.Commands("command1").Execute
　　

End Sub

但是卻在第三行出現了 Method 'Item' of object 'Commands' failed的錯誤如果當加入 on error resume next 時,程式可執行,另我也嘗試做
if dataenvironment1.Commands("command1").State ＜＞ adStateClosed Then
dataenvironment1.commands("command1").open
end if
時,也會在上述中發生相同錯誤,請問我是否有在何處發生了錯誤, 希望眾家高可以幫我指點迷津, 非常感激!!