加上rs.cursorlocation = aduseclient试试看
另外
Text1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
是将rs中的数据显示出来,若要插入应该用
rs.addnew
rs.fields(0)=text1.text
rs.fields(1)=text2.text
rs.batchupdate