代码填写access标题不全

Sub list()
Dim work As Workspace
Dim dbnew As Database
Dim elem As Object
Dim rs As Recordset
Dim RowNum As Integer
Set work = DBEngine.Workspaces(0)
Dim dbs As Database
Dim tdfNew As TableDef
Dim tdf As TableDef
Dim dbsname As String
Dim Array1 As Variant
Dim Array2 As Variant '声明所需的变量及类型
dbsname = "D:\材料表.mdb"

'声明Access数据库写到哪一个文件
On Error Resume Next
Set dbs = work.CreateDatabase(dbsname, dbLangGeneral)
If Err Then
    Kill (dbsname)
    '发现要写入的Access数据库文件已存在就将其删除
    Set dbs = work.CreateDatabase(dbsname, dbLangGeneral)
End If

Set tdfNew = dbs.CreateTableDef("电气 _材料明细表")
'建立一个名为电气材料明细表的表
RowNum = 0
Dim Header As Boolean
Dim FieldIndex(1000)
Dim idx As Long

idx = 0
Header = False
For Each elem In ThisDrawing.ModelSpace
'在CAD模型空间,查找所有图形对象
    With elem
        If StrComp(.EntityName, "AcDbBlockReference", 1) = 0 Then
            If .HasAttributes Then
                Array1 = .GetAttributes '设置array1指向图形对象的属性
                For Count = LBound(Array1) To UBound(Array1)
                    If Header = False Then
                        If Array1(Count).Constant Then
                            FieldIndex(idx) = Count
                            tdfNew.Fields.Append tdfNew.CreateField(Array1(Count).TextString, dbText)
                            idx = idx + 1
                        End If
                    End If
                Next Count
                If Header = False Then
                    dbs.TableDefs.Append tdfNew
                    Set rs = dbs.OpenRecordset(tdfNew.Name, dbOpenTable) '打开记录
                End If
                RowNum = RowNum + 1
                rs.AddNew '增加一笔新记录
                               
                For Count = 0 To tdfNew.Fields.Count - 1
                    rs(Count).Value = Array1(FieldIndex(Count)).TextString
                Next Count '读输入属性值
               
                rs.Update '增加新记录修改结束
                               
                Header = True
            End If
        End If
    End With
Next elem
rs.Close  '关闭记录，释放资源
dbs.Close '关闭数据库，释放资源
End Sub