我真的想不出才求你们了？？？ComboBox与数据库连接的关联问题！

Question

各位师兄:
以下是我的数据结构:
     
     id       tid        合同编号        公司型号      
       
     1         0          2004
     2         1                         ro-001       
     3         1                         ro-002       
     4         0          2005
     5         4                         ro-003
     6         4                         ro-004
 
  我想用两个ComboBox的控件 , combo1与数据库连接, 自动显示合同编号, 即是当用户
选择combo1合同编号2004,combo2就自动显示出公司型号ro-001和ro-002，让用户选择.
(注：关联结构是id,tid)
       
     各位师兄们，给点帮助了，我快逼疯了，，，早上想到现在还未有好的解决方法。

Answer 1

如果在一张表中的话，应该是
     id       tid        合同编号        公司型号      
       
     1         0          2004           ro-001       
     2         1          2004           ro-002       
     4         0          2005           ro-003
     5         4          2005           ro-004
也就是合同编号与公司型号应是一对多的关系。
这样合同编号与combo1相连，而combo2则是随combo1的change或click事件而改变的。
具体做法如下：设这些数据所在表为TABLE1
Private Sub combo1_Change()/Private Sub combo1_click()'连接数据库（你应该有此模块，若已有不用写）
strcnn = "provider=sqloledb;" & _
"data source=" & frm_login.txt_dbserver.text & ";initial catalog=数据库名;uid=用户名;pwd=密码;"
Set cnExport = New ADODB.Connection
cnExport.Open strcnnSet rs= New ADODB.Recordset
rs.Open "select 公司型号 from table1 where 合同编号=" & combo1.text, cnExport, adOpenStatic, adLockOptimistic
Do While Not rs.EOF
combo1.AddItem (rs!公司型号)
End If
rs.MoveNext
Loop
combo1.text=combo1.list(0)
End sub试试看，不行可通知我(MSN)
[email protected]

Answer 2

小鸡蛋师兄：
      不行啊，在这句代码出错：
rs.Open "select 公司型号 from table1 where 合同编号=" & combo1.text, cnExport, adOpenStatic, adLockOptimistic
      提示应用程序数据类型超出范围，类型不正确？？？

Answer 3

改下
如果合同编号为字符形的话
rs.Open "select 公司型号 from table1 where 合同编号='" & combo1.text &"' group by 公司型号"
, cnExport, adOpenStatic, adLockOptimistic
如果合同编号为数字的话
rs.Open "select 公司型号 from table1 where 合同编号=" & combo1.text &" group by 公司型号"
, cnExport, adOpenStatic, adLockOptimistic