用1.6新建窗口 不能保存

新下载了1.6想试用一下，随便建了一个表，加了两字段，然后自动生成3个窗体后，点击新建，填写内容后点击保存后，直接跳转到VBA界面 提示：错误的参数号或无效的属性赋值 

刚开始学习，请高手指教。

Private Sub btnSave_Click()
    On Error GoTo ErrorHandler
    Dim strSQL        As String
    Dim rst           As Object 'ADODB.Recordset
    
    If Not CheckRequired(Me) Then Exit Sub
    If Not CheckTextLength(Me) Then Exit Sub


    strSQL = "SELECT * FROM [tbl111] WHERE [ID]=" & Nz(Me![ID], 0)
    Set rst = OpenADORecordset(strSQL, adLockOptimistic, , CurrentProject.Connection)
    If rst.EOF Then
        rst.AddNew
    End If
    rst![12333] = Me![12333]
    rst![232儿微微] = Me![232儿微微]
    rst.Update
    Me![ID] = rst![ID]
    rst.Close
    
    MsgBoxEx "保存成功！", vbInformation
    If IsNull(Me.OpenArgs) Then
        ClearControlValues Me
    Else
        DoCmd.Close acForm, Me.Name, acSaveNo
    End If
    
ExitHere:
    Set rst = Nothing
    Exit Sub
    
ErrorHandler:
    MsgBoxEx Err.Description, vbCritical
    Resume ExitHere
End Sub