为何我打开VB下拉菜单出现无法绑定到字段数据成员,急死偶啦~~

这是代码:
Private Sub cmdAdd_Click()
    Unlockctl
    DTPicker1.Value = Format(Now, "yyyy-mm-dd")
    Text1 = "": Text2 = "": Combo2 = "": Text4 = "": Text5 = "": Text6 = "": Text7 = ""
    Combo1.Text = ""
    cmnj.Text = "是"
    cmbx.Text = "是"
    cmyd.Text = "是"
    cmbf.Text = "是"
    Text1.SetFocus
    cmdok.Enabled = True: cmdCancel.Enabled = True
    cmdDelete.Enabled = False: Combo1.Visible = True
    Adodc1.Enabled = False: cmdUpdate.Enabled = False
    i = 1
    End Sub
Private Sub cmdUpdate_Click()
    Unlockctl
    i = 2
    cmdok.Enabled = True: cmdCancel.Enabled = True
    cmdAdd.Enabled = False: cmdDelete.Enabled = False
    Adodc1.Enabled = False: Text1.Enabled = False
End SubPrivate Sub cmnj_KeyPress(KeyAscii As Integer)
    KeyAscii = valiText(KeyAscii, Chr(13), True)
    If KeyAscii = 13 Then cmbx.SetFocus
End Sub
Private Sub cmbx_KeyPress(KeyAscii As Integer)
    KeyAscii = valiText(KeyAscii, Chr(13), True)
    If KeyAscii = 13 Then cmyd.SetFocus
End Sub
Private Sub cmyd_KeyPress(KeyAscii As Integer)
    KeyAscii = valiText(KeyAscii, Chr(13), True)
    If KeyAscii = 13 Then cmbf.SetFocus
End Sub
Private Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyAscii = vbKeyReturn Then cmnj.SetFocus
End Sub
有点不明白的地方,请教各位大虾~~~