在线等待回答！多谢了！请看这个问题！很急的 ！

Question

rs.MoveFirst
If rs.Eof()=False Then
      MsgBox "这个号码已经存在了"
      Exit Sub
End If

Answer 1

难道你的数据库中就没有一条记录！
rs.Open "select * from tj ", cn, 1, 3　是打开整个数据库呀！
你应该以某一字段为查找对象
rs.Open "Select * From tj Where name='" & txtname.Text
& "'" ,cn,1,3
你试试吧！

Answer 2

我是这样的：
Dim DataPath As String
DataPath = App.path + "\MyMP3.mdb"
Dim myCon As ADODB.Connection
Dim myRS As New ADODB.Recordset
Set myCon = New ADODB.Connection
myCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataPath & " ;Persist Security Info=False"
myCon.Open
myRS.CursorLocation = adUseClient
myRS.Open "Select * from 歌曲列表 Where 歌首 ='" & Singger & "'", myCon, adOpenStatic, adLockBatchOptimistic主要看看Open这句我参数设置和前面的设置

Answer 3

>>rs.Open "select * from tj ", cn, 1, 3
假设你的号码字段为tjid，类型为int
rs.Open "select * from tj where tjid="&txttjid.Text, cn, 1, 3
if rs.eof then '没有重复的号码
  rs.addnew
  ......
else '有重复号码
  msgbox(出错信息)
end if
rs.close
set rs=nothing