溢出

If MsgBox("你确定要删除所选定的记录吗？", vbInformation + vbYesNo, "提示：") = vbYes Then
      Dim STemp As String
Dim i As Integer
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
'为打开数据表“查询语句”字符变量赋值
STemp = "Select * From 制造物料"
'打开数据表
Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    '判断表是否为空
    If Rs.RecordCount < 1 Then
        Exit Sub
    End If
    '把记录集的指针指到第一条
    Rs.MoveFirst
    For i = 1 To Rs.RecordCount
        '判断记录集中的“ID”字段值是否与子窗体中“会员ID”文本框内的值
        If Rs("ID") = Me![已确定物料子窗体]![ID] Then
            '如果相同，则把该记录删除
            Rs.Delete 1
            Exit For
        Else
            '如果不相同，则移到下一条记录
            Rs.MoveNext
        End If
    Next i
    '弹出“删除完成”的提示信息
    Me![已确定物料子窗体].Requery
    MsgBox "成功删除！", vbOKOnly, "提示"
    '释放系统为Rs数据集分配的空间
    Set Rs = Nothing

以上代码执行后，提示“溢出“是什以原因啊？请高手指点