VB2010 + ACCESS จะทำการตรวจสอบวันที่ยังไงคับไม่ให้ตรงกัน

'ประกาศตัวแปลเพื่อตรวจสอบค่าตาราง
Dim NumRows As integer
strSQL = "SELECT COUNT(*) FROM check_time WHERE  uid = '" & Me.txt_uid.Text & "' and date = '" & me.txt_date.text &"' "
objCmd = New OleDbCommand(strSQL, cnn)
NumRows = objCmd.ExecuteScalar()

If NumRows > 0 Then
                    MessageBox.Show("วันนี้คุณได้ลงเวลาเรียบร้อยแล้ว", "พบข้อผิดพลาด!", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    txt_uid.Text = ""

                Else
'ทำการบันทึกข้อมูลหลังจากนี้ insert into ตอนนี้ได้อยู่คับ'
end if