Private Sub Form_Load()
Dim rs As Recordset
Dim conn As Connectionhaha
End Sub

Private Sub haha()
Set rs = New Recordset
Set conn = New Connection
rs.Open "select * from InOutinfo", conn, adOpenKeyset, adLockPessimistic
Do While Not rs.EOF
Combo1.AddItem rs!发货地
rs.MoveNext
Loop
rs.Close
Set rs = Nothing

End Sub
我想从库中取一列值，显示在combo控件中，应该如何下手，窗口中用不用连库，有经验的大哥帮我写个标准版的用combo取值的语名呗，有空的话帮我改改上面的代码也成，谢谢啦

我写过N次了...

Dim dbConn As ADODB.Connection
Dim Rst As ADODB.Recordset

Dim conString As String
conString = "Provider=sqloledb;Data Source=127.0.0.1;Initial Catalog =Northwind;User Id =sa;Password=coffee;"
Set dbConn = CreateObject("ADODB.Connection")

dbConn.ConnectionString = conString
dbConn.Open

Set Rst = CreateObject("ADODB.Recordset")
With Rst
.CursorLocation = adUseClient
.Open "select Distinct ShipCity from orders order by ShipCity asc", dbConn, adOpenForwardOnly, adLockReadOnly, adCmdText
End With

Dim i As Long
For i = 0 To Rst.RecordCount - 1
Combo1.AddItem Rst.Fields("ShipCity").Value
Rst.MoveNext
Next

Rst.Close
dbConn.Close
Set Rst = Nothing
Set dbConn = Nothing