的操作记录表中的所有记录
        '判断此账户账号中的余额是否为0
        rst.Open "select * from " & txt(0).Text, con, adOpenDynamic, adLockOptimistic
        rst.MoveFirst
        have = True
    errHave:
        If have = False Then
            '此账户账号中的余额为0，给出错误提示
            MsgBox "您的银行余额为0，不能进行存款！"
            Exit Sub
        Else
            i = 0
            Do While Not rst.EOF
                '记录对该账户的操作次数
                i = i + 1
                rst.MoveNext
            Loop
        End If
        If i = 1 Then
            rst.MoveFirst
        Else
            rst.MoveLast
        End If
        '判断此次取款额是否超过账户余额
        If money > CDbl(rst!balance) Then
            '此次取款额超过账户余额，给出错误提示
            MsgBox "此帐户的银行余额为 " & CDbl(rst!balance)
            MsgBox "取款金额大于银行余额，不能提取！"
            Exit Sub
        Else
            '在变量balance中存储账户余额
            balance = CDbl(rst!balance)
            '在变量DDate中最后一次操作的操作时间
            DDate = CDbl(rst!Wdate)
        End If
        rst.Close
        '设置窗体中用于存储自上次操作以来经过的时间、账户账号和
        '账户余额等信息的模块级变量
        frmIBF.passTime = (CDbl(Mid(nowDate, 1, 4)) - CDbl(Mid(DDate, 1, 4))) * 12 + (CDbl(Mid(nowDate, 5, 2)) - CDbl(Mid(DDate, 5, 2)))
        frmIBF.consumerID = txt(0).Text
        frmIBF.consumerMoney = money
        frmIBF.balance = balance
        frmIBF.nowDate = nowDate
        frmIBF.nowTime = nowTime
        frmIBF.DDate = DDate
       '显示用于显示要求用于输入账户密码的窗口以完成账户取款操作
        frmIBF.Show
    End Sub