ต้องการตรวจ รหัสก่อนว่ามีหรือไม่ในฐานข้อมูล ถ้าไม่มีให้แจ้งเตือน

If IsFind = True Then
                ds.Tables("tb_member").Clear()
            End If


            Dim sqlMember As String = ""
            sqlMember = "SELECT รหัสสมาชิก,ชื่อสมาชิก,วันที่สมัคร,วันหมดอายุ FROM tb_member WHERE รหัสสมาชิก='" & txt_memid.Text & "'"

            da = New OleDbDataAdapter(sqlMember, Conn)
            da.Fill(ds, "tb_member")
            If txt_memid.Text <> "" Then
                IsFind = True
                txt_memid.Text = CStr(ds.Tables("tb_member").Rows(0).Item("รหัสสมาชิก"))
                txt_memname.Text = CStr(ds.Tables("tb_member").Rows(0).Item("ชื่อสมาชิก"))
                dt_memregis.Text = CStr(ds.Tables("tb_member").Rows(0).Item("วันที่สมัคร"))
                dt_memexpire.Text = CStr(ds.Tables("tb_member").Rows(0).Item("วันหมดอายุ"))
                txt_bookid.Focus()
            Else
                IsFind = False
                MessageBox.Show("รหัสสมาชิกที่คุณระบุ ไม่มี !!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If