这样的窗体录入怎样实现？

在命令按钮的单击事件过程中写
       Dim rst As New ADODB.Recordset
       Dim sql As String

       sql = "select * from 表名称"
        rst.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        rst.AddNew
        rst("商品名称") = Me.Text0
        rst("颜色") = Me.Text1
        rst("尺码") = Me.Text2
        rst("数量") = Me.Text3
        rst.Update
        rst.Close
        Set rst = Nothing

表中的字段名称自己定义，然后跟窗体中的相关控件对应起来，尺码用个组合框进行选择。