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取值的语名呗，有空的话帮我改改上面的代码也成，谢谢啦