请教------ 关于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一、请帮我检查一下代码"对象打开时不允许操作" 二、 对应记录如何赋值?