Dim conn As ADODB.Connection '定义连接对象
Dim rs As ADODB.Recordset '定义记录集对象
实例化:
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
打开连接:
conn.Open "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=检测中心计算机维修耗材统计系统;Data Source=ZHBI007\JCZX"
rs.Open "select * from IP地址 where 单位 = '" & Trim(Text1.Text) & "'", conn, adOpenKeyset, adLockOptimistic
'最后就是你说的把“产品名称” 显示到combox中了
While rs.EOF = False
Combo1.AddItem rs.Fields("IP地址")
rs.MoveNext
Wend
