菜鸟的难题，高分请高手打擂台（急，急，急）

Sub U_CreateDataBase(strFileName As String)
    '  Starting Access Basic DAO Session...
    On Error Resume Next    Dim MyWorkspace As dao.Workspace
    Dim MyDatabase As dao.Database
    Dim MyTableDef As dao.TableDef
    Dim MyField As dao.Field
    
    Dim i As Integer
    Dim rs As ADODB.Recordset
    Dim typAcs As dao.DataTypeEnum    
    Set MyWorkspace = DBEngine.Workspaces(0)
    Set MyDatabase = MyWorkspace.CreateDatabase(strFileName, dbLangGeneral)
    Set MyDatabase = MyWorkspace.OpenDatabase(strFileName)
    
    FrmProce.Show
    FrmProce.lblCaption.Caption = "正在创建数据库"
    FrmProce.probar.Max = 4
    '  CREATE TABLE "PS_Person"
    MyDatabase.Execute "drop table ps_person"
    
    Set MyTableDef = MyDatabase.CreateTableDef("PS_Person")
    With m_rsPerson
            Set MyField = MyTableDef.CreateField(.fields(i).Name, .fields(i).type, .fields(i).DefinedSize)
            MyField.AllowZeroLength = True
            MyTableDef.fields.Append MyField
        Next
    End With
    MyDatabase.TableDefs.Append MyTableDef
end sub