请教------ 关于datacombo的问题

ID   产品代码产品编码产品名称  零件名称
1    0201140001BB011407.99水枪  左枪身
2    0201140002BB011407.99水枪  右枪身
3    0201140003BB011407.99水枪  透明管
4    0201140004BB011407.99水枪  左手柄
5    0201140005BB011407.99水枪  右手柄
6    0201140006BB011407.99水枪  左装饰件
7    0201140007BB011407.99水枪  右装饰件
8    0201140008BB011407.99水枪  活塞
9    0201140009BB011407.99水枪  透明管盖
10   0201140010BB011407.99水枪  水樽接头
11   0201140011BB011407.99水枪  泵筒接头
12   0201140012BB011407.99水枪  泵杆接头
此表是远程SQL表“物料基本资料”

一个录入窗体FROM1，在数据录入中控件datacombo1、text2、text3、text4
怎样在下拉datacombo1中显示物料基本资料的记录集并且录入记录相对应记录。
比如：在datacombo1中选择产品代码0201140001就会自动付值对应记录
      combox1、 text2、 text3、   text4
     0201140001BB011407.99水枪  左枪身

相同的ACCESS示例
http://access911.net/csdn/filedescription.asp?mdb=2007-5-12&id=30&mode=3

这是代码：

Private Sub DataCombo1_Click(Area As Integer)
   Set Rs = New ADODB.Recordset
            cn.CursorLocation = adUseClient
        cn.Open "Driver={sql server};server=192.168.0.1;database=new;uid=jean;pwd=jean"
      sql = "select 产品代码 from 物料基本资料 order by 产品代码"
      If Rs.State = adStateOpen Then Rs.Close
      Rs.Open sql, cn, 1, 3
      Set DataCombo1.DataSource = Rs
      Set DataCombo1.RowSource = Rs

      DataCombo1.DataField = "产品代码"
      DataCombo1.ListField = "零件名称"
End Sub

一、请帮我检查一下代码"对象打开时不允许操作" 二、对应记录如何赋值? --------------------编程问答-------------------- 没有看明白 --------------------编程问答-------------------- 一、可能是你打开了数据库！
二、简单点
　rs.addnew
   rs("产品代码")=939393
    rs("零件名称")="小零件"

rs.update

补充：VB ,  基础类