那就这样判断试试
Dim cmd As New SQLCommandcmd.CommandText = "Select count(字段) From {表名} Where 字段 = '指定值'"If cmd.ExecuteScalar() > 0 Then MessageBox.Show("重复")End If