单击窗体中的“保存”按钮时出现对话框的问题

单击窗体中的“保存”按钮时出现对话框

单击“否”时出现下面的对话框：

"保存记录"的单击事件为：

Private Sub 保存记录_Click()
On Error GoTo Err_保存记录_Click
Dim i As Integer
Dim STemp As String
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
'为打开数据表“查询语句”字符变量赋值
STemp = "Select * From 学生基本信息"
'打开“职员资料”数据表
Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    '判断文本框是否为空
    If IsNull(Me![考号]) = True Then
        MsgBox "请输入“考号”，它不可以为空!", vbOKOnly, "输入“考号”"
         Me![考号].SetFocus
          Exit Sub
    ElseIf IsNull(Me![姓名]) = True Then
        MsgBox "请输入“姓名”，它不可以为空!", vbOKOnly, "输入“姓名”"
        Me![姓名].SetFocus
        Exit Sub
    Else
        If Rs.RecordCount > 0 Then
            Rs.MoveFirst
            For i = 1 To Rs.RecordCount
                '如果存在，弹出信息并退出子过程
                If Rs("考号") = Me![考号] Then
                    MsgBox "该编号的考生已经存在，请核实!", vbCritical, "记录已经存在"
                    Exit Sub
                Else
                    Rs.MoveNext
                End If
            Next i
        End If
    End If
    '为保存职员资料“查询语句”字符变量赋值
    STemp = "INSERT INTO 学生基本信息 "
    STemp = STemp & "( 考号,姓名,性别,出生日期,时间,年龄,地址,电话,照相)"
    STemp = STemp & "VALUES ('" & Me![考号] & "','" & Me![姓名] & "',"
    STemp = STemp & "'" & Me![性别] & "','" & Me![出生日期] & "',"
    STemp = STemp & "'" & Me![时间] & "','" & Me![年龄] & "',"
    STemp = STemp & "'" & Me![地址] & "','" & Me![电话] & "',"
    STemp = STemp & "'" & Me![照相] & "')"
    '使用DoCmd对象的RunSQL方法执行查询
    DoCmd.RunSQL STemp
    '刷新子窗体
    Me![学生基本信息子窗体].Requery
    Set Rs = Nothing
Exit_保存记录_Click:
  
    Set Rs = Nothing
    Exit Sub
Err_保存记录_Click:
    MsgBox Err.Description
    Resume Exit_保存记录_Click
End Sub

由于文件超过2M，不能上传。帮帮忙 了。