Const adInteger = 3 Const adDate = 7 Const adFldIsNullable = 32 Const adVarChar = 200 Dim rs Dim fs Dim fsFolder Dim fsFile Set rs = CreateObject("ADODB.Recordset") rs.Fields.Append "myname", adVarChar, 300, adFldIsNullable rs.Fields.Appen…