我一般把绑定写在click
Private Sub cmbAccount_Click(Area As Integer)
Select Case Area '双击后到设施
Case dbcAreaButton
Dim sQuery As String
sQuery = "select account from tblaccount "
Set rstCmms = cnnCMMS.Execute(sQuery)
Set cmbAccount.RowSource = rstCmms
cmbAccount.ListField = "account"