Sub Globals
Type Field(Nm As String,Typ As Byte)
Type Table(Nm As String,Field() As Field)
Private Fields() As Field
Private Tables() As Table
End Sub
Fields = Array As Field(InitFields("ID",3),InitFields("DT",1),InitFields("FRM_N",1))
Tables = Array As Table(InitTables("MEM_FRM",Fields))