build_CSV_string.txt

' Access VBA
' loops through a single column recordset and builds a csv text string
' that can be inserted into a query
' modified from unknown internet sources
' my NY resolution is to capture sources when culling ideas from internet

If rs.RecordCount <> 0 Then
    rs.MoveLast
    rs.MoveFirst
    Do Until rs.EOF
        ap = rs.AbsolutePosition
        rc = rs.RecordCount - 1
        If ap < rc Then
        cslist = cslist + CStr(rs!Value) & ","
        Else
        cslist = cslist + CStr(rs!Value)
        End If
        rs.MoveNext
    Loop
End If