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

Question

怎么使用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, "提示"
这个错在哪里呀？

Answer 1

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) & "')"

Answer 2

1，表名后最好写上字段名
2，SQL语句中引用变量时要根据字段类型来写
conn.execute " insert into 表名(字符型字段名,数值型字段名,日期型字段名) values('"& 字符型变量 &"',"& 数值型变量 &",'"& 日期型变量 &"')"

Answer 3

我换了一种写法  又是有错误。。
 rs.Open "Select * from student ", cn, adOpenKeyset, adLockOptimistic
   
    rs.AddNew
    rs.Fields("sno") = "Text1.text"
    rs.Fields("ssex") = "Text2.text"
    rs.Fields("sname") = "Text3.text"
    rs.Fields("sint") = "Text4.text"
    rs.Update

Answer 4

rs.AddNew
rs.Fields("sno") = Text1.text
rs.Fields("ssex") = Text2.text
rs.Fields("sname") = Text3.text
rs.Fields("sint") = Text4.text
rs.Update