ขออนุญาตสอบถาม Code ตรวจสอบบัตรประชาชนซ้ำครับ ติดปัญหา Error ครับ

[Teerin]

 :sweat:Copy Code จากเว็บแล้วมาปรับตามตารางที่มีครับ พอรันแล้วติดปัญหาดังรูปครับ

Private Sub Person_Code_AfterUpdate()
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("Select count(Person_Code) from Farmer where Person_Code ='" & Me.Label3 & "'")
'ติดตรงนี้'
If rst(0) > 0 Then
    MsgBox ("เลขบัตรนี้มีการลงทะเบียนในระบบแล้ว")
End If
rst.Close
Set rst = Nothing
End Sub

[PNR]

ชื่อ textbox ที่ระบุเลขประจำตัวประชาชนชื่อ label3 หรอครับตรวจสอบตรงนี้ด้วย
ชื่อตารางที่ตรวจสอบชื่อ Farmer หรือไม่
ชื่อฟิลล์ Person_Code ดูชื่อว่าตรงหรือไม่

[Teerin]

ได้แล้วครับ ผมใส่ข้อมูล label3 ที่ต้องเป็น Person_Code ครับ