datagrid、text与adodc绑定后数据更新问题

如：vipcode    name    vipcoede1
               张三     00001
               张三     00002
               李四     00003
Set Text1(i).DataSource = Adodc1
Set DataGrid1.DataSource = Adodc1
Text1(i).DataField = Adodc1.Recordset.Fields(i).Name
我这里想实现输入name查询后，在text1中写入vipcode号码，判断没有重复后，写入数据库。有没有好的解决方法？谢谢。