Question : layout for word document

I have written some code to get data form an sql database, and place it in to an word merge document.
it's working fine, but the only problem is the layout. i am reading data of several collums, and because they are not all of the same lenght, the output gets messy.

example


Belarus       Sell Through       Exclusive       25       
Belarus       Closed Circuit                     
Kazakhstan       Closed Circuit                     
Kazakhstan       Sell Through       Exclusive       25       
Russia       Sell Through       Exclusive       25       
Tajikistan       Sell Through       Exclusive       25       
Ukraine       Sell Through       Exclusive       25       
Uzbekistan       Sell Through       Exclusive       25       

what i would like is to line the collums out.

any suggestions ?


 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Dim rec8 As New ADODB.Recordset
rec8.Open " SELECT dbo.[Video-tv-rechten-royalty].Land, dbo.[Video-tv-rechten-royalty].landnaam, dbo.[Video-tv-rechten-royalty].recht, dbo.[Video-tv-rechten-royalty].percentage, " _
           & " dbo.[Video-tv-rechten-royalty].memo, dbo.[royalty tv rights].contractid, dbo.Exclusivetekst.tekst AS exclusive FROM dbo.[royalty tv rights] INNER JOIN " _
           & " dbo.[Video-tv-rechten-royalty] ON dbo.[royalty tv rights].contractid = dbo.[Video-tv-rechten-royalty].nr LEFT OUTER JOIN dbo.Exclusivetekst ON dbo.[Video-tv-rechten-royalty].exclusive = dbo.Exclusivetekst.[ja-nee] " _
        & " WHERE ([Video-tv-rechten-royalty].[nr]  = " & dealmemo_contract_id & ") ORDER BY dbo.[Video-tv-rechten-royalty].Land ", _
        CurrentProject.Connection, adOpenKeyset, adLockOptimistic
' strtext talen
If rec8.RecordCount > 0 Then
    rec8.MoveFirst
    Do Until rec8.EOF
       strtext8 = strtext8 & Trim(rec8![Landnaam].Value) & vbTab & " " & Trim(rec8![Recht].Value) & vbTab & " " & Trim(rec8![exclusive].Value) & vbTab & " " & Trim(rec8![percentage].Value) & vbTab & " " & Trim(rec8![Memo].Value) & vbCrLf
       Debug.Print strtext8
       rec8.MoveNext
    Loop

Answer : layout for word document

Found it myself, made table with 5 pagemarks, and split the code into 5 sepaerate selections
Random Solutions  
 
programming4us programming4us