主题：车辆管理数据库（带串口的）的一个功能问题

这个用SQLCommand会好一点吧,因为可能不同的刷卡机连接不同的客户端,直接取后台数据来对比

Dim SQLCmd As New SQLCommand

SQLCmd.ConnectionName = "数据源"

SQLCmd.CommandText = "SELECT COUNT([_Identify]) FROM 表名 WHERE 卡ID = '" & "接收到的卡号" & "' AND DATEDIFF(MI,刷卡时间,GETDATE()) < 20"

Dim Cnt As Integer = SQLCmd.ExecuteScalar

If Cnt > 0 Then Msgbox("您已经在20分钟内刷过卡啦,不能再重复刷了!",64,"提示") : Return