請教高手有關dataenvironment的問題(編號：6766)

我先在dataenvironment1上新增一個command1,然後再form_load上加入程式如下
Private Sub Form_Load()
connstr = "Provider=Microsoft.Jet.OLEDB.3.51;Data source=f:\db\test.mdb"
　　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的錯誤, 請問各位高手指點迷津,謝謝!