How can I delete data from a TABLE that's already exists in another TABLE

See more:

VB

MS-Access

I am using visual studio 2017 and ms access 2016 for a Windows forms application. I have a MEMBERS and a SUPPORTERS table. Both of the table has a coloumn [AADHAAR]. In both tables the [AADHAAR] is primary. I want to delete all the records from SUPPORTERS table if a match found with [AADHAAR] column of MEMBERS table.

I have used a button which does the task..

Note: There are more than 10 matches between [AADHAAR] column of MEMBERS table and [AADHAAR] column of SUPPORTERS table. Still ExecuteNonQuery() returns 0. So dont post comments like there is no matches. bla.. bla.. bla..

What I have tried:

private Sub Extra_Btn_Click(sender As Object, e As EventArgs) Handles Extra_Btn.Click
       If Merge_Data() = True Then
           MsgBox("Duplicate Data removed")
       Else
           MsgBox("Error! ")
       End If
   End Sub

Definition of The function Merge_Data :

Public Function Merge_Data() As Boolean
        Try
            Link()
            cmd.CommandText = "DELETE * FROM SUPPORTERS WHERE SUPPORTERS.AADHAAR IN (SELECT MEMBERS.AADHAAR FROM MEMBERS)"
            Records = cmd.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        If Records > 0 Then
            Return True
        Else
            Return False
        End If

    End Function

This Doesnt Work.Simply Msgbox("Error! ") appears that means ExecuteNonQuery() retuns 0 . Hence Merge_Data() returns False