这个添加控件的代码哪里错了啊？

Question

參考一下
Option Explicit
'声明对象变量为 CommandButton 。
Private WithEvents cmdObject As CommandButtonPrivate Sub Form_Load()
    '动态添加按钮
    Set cmdObject = Form1.Controls.Add("VB.CommandButton", "cmdOne")
    With cmdObject
        .Visible = True
        .Caption = "动态按钮"
        .Width = 1000
        .Height = 500
        .Top = Form1.Height / 2 - 500
        .Left = Form1.Width / 2 - 500
    End With
End Sub

Answer 1

哦，，好象是这个保存控件的代码有问题，，，他老是提示我    对象不支持该属性和方法Private Sub Command4_Click()
Dim position As Variant
Dim s As String
On Error GoTo updateerr
BeginTrans
  Data1.Recordset.Updata
CommitTrans
Data1.Refresh
Exit Sub
updateerr:
Rollback
MsgBox Err.Description
End Sub
这是为什么呢？

Answer 2

增加记录的操作顺序是这样的:.AddNew
.Fields(字段名1)=你要赋给字段的值
.Fields(字段名2)=你要赋给字段的值
.Fields(字段名3)=你要赋给字段的值
.......Update你少了中间的部分.