>>Dim Rs As ADODB.Recordset, aCols As Variant, strMark As String >> >> Set Rs = New ADODB.Recordset >> With Rs.Fields ' crreate RSs fields >> .Append "Office", adBSTR ' Office number >> .Append "Submit", adBSTR ' Submitted Flag >> .Append "Descri", adBSTR ' The desc and the sub date >> Rs.Open ' open our new rs >> >> ' Create the array to facilitate record entry >> aCols = Array(.Item(0).Name, .Item(1).Name, .Item(2).Name) >> End With >> >> Dim x >> For x = 0 To oList.ListCount - 1 >> If oList.Selected(x) = True And Mid(oList.List(x), 7, 1) = strMark Then >> >> Rs.AddNew aCols, Array(Left(oList.List(x), 6), _ >> IIf((Mid(oList.List(x), 7, 1) = strMark), strMark, " "), _ >> Right(oList.List(x), Len(oList.List(x)) - 37)) >> >> End If >> Next >> >>
"If ye love wealth better than liberty, the tranquility of servitude better than the animated contest of freedom, go home from us in peace. We ask not your counsel or arms. Crouch down and lick the hands which feed you. May your chains set lightly upon you, and may posterity forget that ye were our countrymen."
~Samuel Adams