Private Sub btnDLookup_Click() ' สร้างปุ่มชื่อ btnDLookup ใส่โค้ดที่ Event On Click
Dim strID As String
If IsNull(Me.txtID.Value) = True Then
MsgBox "กรุณาป้อนรหัสสมาชิกก่อนครับ", vbCritical, "Error"
txtID.SetFocus 'โฟกัสไปที่ TextBox ชื่อ txtID
Exit Sub
Else
strID = Me.txtID.Value
               If IsNull(DLookup("EmpID", "tblUSers", "EmpID = '" & _
                                                         txtID.Value & "'")) Then
                                                         MsgBox strID & " " & "ไม่มีหมายเลขสมาชิกนี้ครับ!!", vbCritical, "Error ไม่พบรหัสสมาชิก"
                                                         Else
                                                         MsgBox strID & " " & "หมายเลขสมาชิกนี้ มีอยู่ในระบบครับ!!", vbInformation, "ยินดีด้วยครับผม"
               End If
              
End If
End Sub
'พอเป็นแนวทางครับ ผม Test แล้ว OK ครับ

แวะมาเพิ่มเติมครับ
Field ที่ต้องการค้นหาคือ EmpID จากตารางชื่อ tblUsers
การทำงานเบื้องต้น
ตรวจสอบ Criteria การรับค่าจาก TextBox ชื่อ txtID ว่าตรงตามข้อมูลใน Field EmpID หรือไม่ จะแสดงผลทาง Message Box

หมายเหตุ:
Application.DLookup Method จาก Access Help
Syntax
expression.DLookup(Expr, Domain, Criteria)