twy1392336

我要做一个登录框,用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块变量未设置
又麻烦高手了.