VB数据误显示

Private Sub comSBYX_Click()
If comSBYX.Text = "一年" Then
txtJZRQ.Text = DateAdd("yyyy", 1, dtpAZRQ)
labSFGB.Caption = IIf(Date > txtJZRQ, "已过保", "未过保")
End If
If comSBYX.Text = "二年" Then
txtJZRQ.Text = DateAdd("yyyy", 2, dtpAZRQ)
labSFGB.Caption = IIf(Date > txtJZRQ, "已过保", "未过保")
End If
If comSBYX.Text = "三年" Then
txtJZRQ.Text = DateAdd("yyyy", 3, dtpAZRQ)
labSFGB.Caption = IIf(Date > txtJZRQ, "已过保", "未过保")
End If
End Sub

录入数据的时候出现错误，有些没过保的显示已过保，有些过保的显示没过保

VB数据误显示 VB 数据显示问题 vb datagrid不显示数据 vb标签显示数据问题 vb 中显示数据的控件 vb中datagrid中不显示数据 vb删除datagrid显示的数据 vb 怎样显示access中的所有数据 vb.net中的DataGrid控件显示不了数据了 VB里面如何一秒种显示一条数据库里面的数据