Dim i as long
Dim astrRes() as String

...

astrRes(0 to rst.Fields.Count-1) as String
    Do Until rst.EOF
            For i=0 to rst.Fields.Count-1
                strRes(i) =rst.Fields(i) 
            next i
        Debug.Print Join(astrRes,"; ")
        Erase astrRes
        rst.MoveNext
    Loop

CurrentProject.Connection.Execute("SELECT * FROM datasel...").GetString(ColumnDelimeter:="; ", RowDelimeter:=vbCrLf)

astrRes(i) =rst.Fields(i)

Debug.Print CurrentProject...