テーブルにフィルターを設定して変数に抽出されたレコードを代入したい

初めましてお世話になります。

現在送り状作成アクセスを作成しております。
その中にある伝票番号テーブルの送付フラグコード=1のレコードの9番目のフィールドであるアドレスフィールドのレコードを変数の中にレコードの分だけ追加していきたいと考えております。

例えば変数をSTR(string型)とします。
送付フラグコード=1のレコードが伝票番号テーブルの中に3レコードありアドレスフィールドがすべてのレコードに記載されている場合、
STR＝アドレス1アドレス2アドレス3
という形で格納したいと考えております。
このSTRの中に入っている文字列を利用して後々outlookの宛先であるTOに代入してメールを作成したいという目的があります。

vbaのコードとしては

1.Private Sub mailbtn_Click()
2.Dim RS As ADODB.Recordset
3.Dim CN As ADODB.Connection
4.Dim STR As String

5.Set CN = CurrentProject.Connection
6.Set RS = New ADODB.Recordset
7.Set RS = CN.Execute("伝票番号テーブル")
8.RS.Filter = "送付フラグコード=1"

9.Do Until RS.EOF
10. STR = RS.Fields(9)
11. RS.MoveNext
12. STR = STR+STR
13.Loop

14.RS.Close: CN.Close
15.Set RS = Nothing
16.Set CN = Nothing

17.End Sub
と最初に書いたのですが12行目が間違っており送付フラグコードが1の最後のレコードのアドレスが2回連続して代入されいているだけでした。
例えるなら"AA”のようにA+Aという感じになるだけでした。

do until ～Loopの使用例としてdebug.printを活用しているものが多いのですがそれだとイミディエイトウィンドウに
A
B
C
と記載されるだけで目的が果たせません。
私が理想とするのは
STR=ABC
という結果なのです。
12行目を削除するとSTR=Cと最終レコードのアドレスフィールドの文字にしかなりません・・・。

どなたか理想的な文字を取得する方法ご存じありませんでしょうか？

大変お手数ですがご教授お願いいたします。

行動規範の内容に同意します

回答2件

自己解決済みのようですが、、、

現状

vba
1Do Until RS.EOF
2    STR = RS.Fields(9) 'フィールドの値をSTRに代入、例えば"A"とする
3    RS.MoveNext 
4    STR = STR+STR     ' "A"+"A"つまり"AA"がSTRに代入される
5Loop

ご希望の動作

vba
1Do Until RS.EOF
2    STR = STR & RS.Fields(9) 'STRの後にフィールドの値を付加してSTRに代入
3    'すでにSTRに"AB"が代入されていてフィールドの値が"C"なら"ABC"が代入される
4    RS.MoveNext 
5Loop

ステップ実行で動作確認(デバッグ)する方法を習得するといいでしょう。

VBA デバッグの仕方

別案

GetStringメソッドを使えばループせずに一気に取得できます。

vba
1Private Sub mailbtn_Click()
2    Dim RS As ADODB.Recordset
3    Dim CN As ADODB.Connection
4    Dim STR As String
5    Set CN = CurrentProject.Connection
6    Set RS = New ADODB.Recordset
7    Set RS = CN.Execute("SELECT アドレス FROM 伝票番号テーブル WHERE 送付フラグコード=1")
8    STR = RS.GetString(adClipString, , "", " ")    
9    RS.Close: CN.Close
10    Set RS = Nothing
11    Set CN = Nothing
12    
13    Debug.Print STR '結果確認
14End Sub