Adodc关于编辑选定的数据和判断重复数据 达人来

Question

Adodc关于编辑选定的数据和判断重复数据 达人来Adodc1.Recordset.ActiveConnection.Execute "Delete From data where 名称='" & CStr(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)) & "'" (名称, 单位) VALUES ('" & Text1(0).Text & "' , '" & Text1(1).Text & "')" 
怎么把上面这段代码改为修改选定的数据哦
Adodc1.Recordset.ActiveConnection.Execute "insert Into data(名称, 单位) VALUES ('" & Text1(0).Text & "' , '" & Text1(1).Text & "')"
怎么在上面这段代码前判断重复的名称数据并msg哦
我不喜欢下面的语法哦，喜欢上面这种简洁的哦 ^^
Dim   cn   As   New   ADODB.Connection   
Dim   cm   As   New   ADODB.Command   
cn.Open谢谢

Answer 1

Adodc1.Recordset.ActiveConnection.Execute "Delete From data where 名称='" & CStr(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)) & "'" (名称, 单位) VALUES ('" & Text1(0).Text & "' , '" & Text1(1).Text & "')" 
怎么把上面这段代码改为修改选定的数据哦Adodc1.Recordset.DeleteAdodc1.Recordset.ActiveConnection.Execute "insert Into data(名称, 单位) VALUES ('" & Text1(0).Text & "' , '" & Text1(1).Text & "')"
怎么在上面这段代码前判断重复的名称数据并msg哦方法1:
在 data 表中建一个唯一索引，包含 【名称】, 【单位】 字段。这样插入重复值将引发一个错误。用 On Error 语句拦截并处理错误就可以了。方法2:
Adodc1.Recordset.DataSource = "Select * From data Where 名称='" & Text1(0) & "' And 单位='" & Text1(1) & "'"
Adodc1.Recordset.Refresh
If Adodc1.Recordset.EOF Then Adodc1.Recordset.ActiveConnection.Execute "insert Into data(名称, 单位) VALUES ('" & Text1(0).Text & "' , '" & Text1(1).Text & "')"

Answer 2

Adodc1.Recordset.ActiveConnection.Execute    "UPDATA  From  data  where  名称='  "  &  CStr(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row,  1))  &    "'  "  (名称,  单位)  VALUES  ('  "  &  Text1(0).Text  &    "'  ,  '  "  &  Text1(1).Text  &    "')  "    
问题1的意思是怎么把上面这段代码改为修改所选定的数据哦，老出错。
你的方法1我知道哦，我想用方法2呢
可是Adodc1.Recordset.DataSource 
这里就错了，显示编译错误，未知道方法或数据成员。