Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\新建文件夹 (2)\销售记录.mdb"
  SQL = "select * from 型号表"
  Rs.Open SQL, Cn, 3, 3

  If Text2.Text = "" Then
   c = MsgBox("请输入你要添加的型号", vbYesNo, "信息提示")
    If c = vbYes Then
      Text2.SetFocus
      Exit Sub
    Else
      Exit Sub
    End If
  End If

   If Rs.EOF = False Then
    c = MsgBox("此型号已经存在，请查证后再输入", vbYesNo, "信息提示")
       If c = vbYes Then
         Text2.Text = ""
         Text2.SetFocus
         Rs.Close
         Exit Sub
       Else
         Rs.Close
         参数添加.Hide
         Exit Sub
       End If
  End If
    Rs.AddNew
    Rs.Fields("型号") = Trim(Text2.Text)
    Rs.Update
    Rs.Close
    MsgBox "该型号保存成功"

无论数据库中该数据存在与否，都报该数据存在？为什么？希望老师们能回答，谢谢啦！

SQL = "select * from 型号表"
  Rs.Open SQL, Cn, 3, 3

你查找了这个型号吗？？？？？

你是打开整个表，没有把 所需要 查找的 型号 代进去进行查找。

谢谢老师指导，已经正确了。