Set conn = New ADODB.Connection
conn.ConnectionString = "driver=sqlserver;server=pc;uid=sa;pwd=sa;database=sql"
conn.open()
Dim rs as adodb.recordset
Sub SQLData()
Dim sqlstr as string = "select * from 表名 where 字段名 = '***'"
set rs = conn.execute(sqlstr)
do while not rs.eof
combobox.text = rs("字段名").valual.tostring
rs.movenext
loop
End Sub