如何将字段内容显示在combo1中
添加了用户后,希望在登录界面中,将所有用户自动添加至combo1中,如何操作?
[解决办法]
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\visit.mdb;Persist Security Info=False "
rs.Open "select * from record ", con
combo1.clear
do while not rs.eof
Combo1.AddItem rs(你要加的那个字段).value
rs.movenext
loop
