Проверка одинаковых записей в таблице

  Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        For Each adapter As NetworkInterface In NetworkInterface.GetAllNetworkInterfaces()
            ' Игнорируем неработающие интерфейсы и loopback адаптер(ы)
            If (adapter.OperationalStatus <> OperationalStatus.Up OrElse adapter.NetworkInterfaceType = NetworkInterfaceType.Loopback) Then Continue For
 
            Dim adapterName As String = adapter.Name
            ' TODO: Вывод названия адаптера
            For Each unicastIpInfo As UnicastIPAddressInformation In adapter.GetIPProperties().UnicastAddresses
                Dim address As String = unicastIpInfo.Address.ToString()
                ' TODO: Вывод очередного адреса текущего адаптера
                ' TextBox1.AppendLine(address)& vbCrLf
                TextBox1.AppendText(adapterName & " IP: " & address & vbCrLf)
 
                SqlCom = New OleDb.OleDbCommand("INSERT INTO [tab] ( [tit], [ip]) VALUES ('" & adapterName & "', '" & address & "')", Con)
                Con.Open()
                SqlCom.ExecuteNonQuery()
                Con.Close()
                Me.Close()
            Next
 
        Next

SqlCom = New OleDb.OleDbCommand("SELECT ID FROM [tab] WHERE (ip = '" & address & "' OR computername = '" & имякомпьютера & "')", Con)
Con.Open()
if SqlCom.ExecuteScalar > 0 then MsgBox("Есть совпадение!")
Con.Close()

                Try
                    SqlCom = New OleDb.OleDbCommand("Select * From [tab] where [ip] > '" & address & "'")
                    SqlCom = New OleDb.OleDbCommand("INSERT INTO [tab] ( [tip], [ip]) VALUES ('" & adapterName & "', '" & address & "')", Con)
                    Con.Open()
                    SqlCom.ExecuteNonQuery()
                    Con.Close()
 
                Catch ex As Exception
                    Label2.Text = "в базе есть совпадения"
                    TextBox1.AppendText(adapterName & " IP: " & address & vbCrLf)
                End Try

SqlCom = New OleDb.OleDbCommand("SELECT ID FROM [tab] WHERE (ip = '" & address & "' OR computername = '" & имякомпьютера & "')", Con) 'Запрос на получение значения поле ID где ip = address или computername = имя компьютера
Con.Open()
if SqlCom.ExecuteScalar > 0 then Label2.Text = "в базе есть совпадения": Exit Sub 'Если SqlCom.ExecuteScalar вернет ноль - значит совпадений нет. Если есть совпадения - выходим из процедуры, если нет переходим к добавлению данных в базу
 SqlCom = New OleDb.OleDbCommand("INSERT INTO [tab] ( [tip], [ip]) VALUES ('" & adapterName & "', '" & address & "')", Con)
SqlCom.ExecuteNonQuery()
Con.Close()