VB adodc控件删除问题

单击删除按钮，删除数据源点中的记录。
在text里输入数据源中的数据，然后单击删除按钮，随后删除。
两者合并一起的代码怎么写啊？

TEXTBOX 主要是来限制条件的，可用WHERe 条件句，例如：
Adodc1.Recordset.Close
n = "delete from 表名 where 列名 = '" & Text1.Text & "'"
Adodc1.Recordset.Open n
Adodc1.Refresh
自己试一下就明白了
删除点中的记录，可以直接用
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
如果要合起来，就设置一个IF语句，

首先检查user有没有赋值 如果已赋值，那么你的代码，如果找不到记录程序会出错，程序代码改为 adodc1.recordsource = "select teachercode from teacher where teachernum= '" & user & "'" adodc1.refresh if adodc1.recordset.recordcount >= 1 then adodc1.recordset.fields("teachercode") = text1.text adodc1.recordset.update end if 另外，你的代码效率不高，改成这样效率高些。 private sub command1_click() adodc1.recordset.find "teachernum='" & user & "'" if not adodc1.recordset.eof() then adodc1.recordset.fields("teachercode") = text1.text adodc1.recordset.update end if end sub private sub form_load() adodc1.recordsource = "select * from teacher" adodc1.refresh end sub