ado问题，我是菜菜，请教

Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset.movefirst
End Sub
Private Sub Command2_Click()
With Adodc1.Recordset
.Find ("test1 like '*" & Text3.Text & "*'")
.Delete
.MoveNext
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast
End With
End Sub

Private Sub Command3_Click()
With Adodc1.Recordset
.Find ("test1 like '*" & Text3.Text & "*'")
End With
End Sub
Private Sub Form_Initialize()
Adodc1.Recordset.AddNew
End Sub

这段代码除了可以执行插入，删除和查询都会出错，请问如何解决，急 --------------------编程问答-------------------- up

please use standard Sql statement to handle it --------------------编程问答-------------------- 可以说得明白点么 --------------------编程问答-------------------- 怎么都是用ADO控件的.可以定义ADO全局声明啊.

参考:http://topic.csdn.net/u/20090221/17/4344cf27-3c51-4ca9-98ac-288bb84a3b95.html

补充：VB ,  数据库(包含打印，安装，报表)