如何使用vb6.0的ado组件增加，删除，修改sql 2000表中的数据呀

怎么使用vb6.0的ado组件增加，删除，修改sql 2000表中的数据呀？
怎么使用vb6.0的ado组件增加，删除，修改sql 2000表中的数据呀？
老师什么都没告诉我们，全要我们去自学，可是网络上又没什么有用的资源。
各位帮帮我呀。。

rs.Open "insert into 入库信息 values ('" & Trim(Text7.Text) & "','" & Trim(Text1.Text) & "','" & Trim(Text2.Text) & "','" & Trim(Text3.Text) & "','" & Trim(Text4.Text) & "','" & Trim(DTPicker1.Value) & "','" & Trim(Text5.Text) & "','" & Trim(Text6.Text) & "')", conn, adOpenDynamic, adLockReadOnly
  MsgBox "添加成功！", 0 + 48 + 0, "提示"


这个错在哪里呀？

------解决方案--------------------
conn.execute "insert into 入库信息 values ('" & Trim(Text7.Text) & "','" & Trim(Text1.Text) & "','" & Trim(Text2.Text) & "','" & Trim(Text3.Text) & "','" & Trim(Text4.Text) & "','" & Trim(DTPicker1.Value) & "','" & Trim(Text5.Text) & "','" & Trim(Text6.Text) & "')"
------解决方案--------------------
rs.AddNew
rs.Fields("sno") = Text1.text
rs.Fields("ssex") = Text2.text
rs.Fields("sname") = Text3.text
rs.Fields("sint") = Text4.text
rs.Update