我要做一个登录框,用DBCombo做用户名的下拉列表,
代码:
Private Sub Form_Load()

Adodc1.C + App.Path + "\at_db.mdbersist Security Info=False"
Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = "select * from 登录"

Set DBCombo1.RowSource = Adodc1.Recordset
DBCombo1.ListField = "用户名"

End Sub

报实时错误'91',对象变量或With块变量未设置
又麻烦高手了.

Adodc1加载后没有刷新

1、Adodc1.Refresh
2、你加载的DBCombo不支持Adodc控件，只支持Data控件，要使用Adodc，请使用Microsoft DataList Controls 6.0中的DataCombo控件