我想按站名和系统来判断 都重复的话报数据存在否则保存成功，但是运行的时候没有效果，而且在access中把数据行删了，在运行VB保存，access中的id不从1开始计数，按照之前的序号开始计数
Private Sub Command1_Click()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
cnn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\SJ.mdb"
rs.Open "select * from 表1 where 站名='combo1.Text ' and 系统= 'Combo2.Text'", cnn, adOpenStatic, adLockOptimistic
If rs.RecordCount <> 1 Then
MsgBox "数据已存在"
Else
rs.AddNew
rs.Fields("站名") = Combo1.Text
rs.Fields("系统") = Combo2.Text
rs.Fields("设备") = Combo3.Text
rs.Fields("清扫周期") = Text1.Text
rs.Fields("本次清扫日期") = DTPicker1
rs.Fields("清扫有效期") = Text3.Text
rs.Update
MsgBox "保存成功"
rs.Close
End If
End Sub

谢谢版主，用了您改的代码后，成功了。

谢谢大家