说明一下，这个方法不是最好的！我用了个笨办法，高手指点下，新手学习一下，别打击我啊~~
这个方法我看修改下还可以用到查询编号是否连续，不连续则插入一条信息。
功能是：添加的时间（Combo1.Text）是否有重复，如果重复自动增加5秒。      
          Me. = adCmdText
         Me.Adodc1.RecordSource = "select * from bwl where 日期 ='" & (Me.Text1.Text) & "' and  _
                    时间 between # " & DateAdd("s", -4, ) & " # and  # " & DateAdd("s", 9, ) & " # order by 时间 asc"
               '查询时间（Combo1.Text）前4秒和后9秒是否有记录，因为是+5秒所以是前4后5
        Me.Adodc1.Refresh
            If Me.Adodc1.Recordset.RecordCount > 0 Then  '如果有记录
               Me.Adodc1.Recordset.MoveLast '移到最后一条记录
                 If Me.Adodc1.Recordset.Fields("时间") >= "23:59:54" Then  '如果今天记录满了
                  MsgBox "这天备忘记录已满，请选择其他日期！", 32, "系统"  '提示
                  Exit Sub
                 End If
zjsj:          js = DateAdd("s", 5, Me.Adodc1.Recordset.Fields("时间")) '变量js=查询到的最大时间增加5秒
                     Me. = adCmdText
                     Me.Adodc1.RecordSource = "select * from bwl where 日期 ='" & (Me.Text1.Text) & "' and  时间 _
                                  between # " & DateAdd("s", -4, js) & " # and  # " & DateAdd("s", 9, js) & " #order by 时间 asc "
                             '继续查询前4秒后9秒
                     Me.Adodc1.Refresh
                If Me.Adodc1.Recordset.RecordCount > 0 Then
                   Me.Adodc1.Recordset.MoveLast
                   GoTo zjsj  '查询直到有可以插入的时间位置，绕晕头了，只能用goto了~~~
                End If
            Else
               js =
            End If