Dim retVal As Boolean = False
        Dim cnSQL As SqlConnection
        Dim cmSQL As SqlCommand
        Dim strSQL As String

        strSQL = "Select * From Table_Contacts where EmailAddress = '" & 
txtEmail.Text & "' OR Name = '" & txtName.Text & "';"
        cnSQL = New SqlConnection(thisConnection)
        cnSQL.Open()

        cmSQL = New SqlCommand(strSQL, cnSQL)
        Dim reader As SqlDataReader = cmSQL.ExecuteReader()

        If Not reader.HasRows Then
            retVal = False
            MessageBox.Show("No Record")
        Else
            MessageBox.Show(" already exists!", " ", MessageBoxButtons.OK, 
MessageBoxIcon.Error)
            retVal = True
        End If

        cnSQL.Close()
        cmSQL.Dispose()
        cnSQL.Dispose()
        retVal = True


Can someone help me with this?
I'm keep getting "already exist" even there is no matching record in the 
database.

- Thanks