)
    Unload Me
    End Sub
    
    Private Sub cmdvipcounter_Click()
           Dim Gdiscount As Double
        Dim cn As ADODB.Connection
        Dim i As Integer
        Dim rst As ADODB.Recordset
        Dim strsql As String
        Dim uprice As Double
        Set cn = New Connection
        Set rst = New ADODB.Recordset
        cn.Open concn
        frmManager.Adodc1.Recordset!endtime = Now()
        Gdiscount = frmMember.datPrimaryRS.Recordset![DISCOUNT]  '会员的账户上的金额
        
        txtvipmoney.Text = frmManager.Adodc1.Recordset!Time * frmManager.Adodc1.Recordset![uprice] * Gdiscount
        strsql = "insert into history (pcid,starttime,endtime,pay,userid) value