ＮＡＧさん お忙しいところありがとうございます。 ご指摘のとおり、配列を再編集して、文字列につなぎ合わせて やってみましたが、やはり、リストボックスには 表示できませんでした。環境が悪いですかね・・・ ＜回避＞ そこで、非表示のテキスト（複数値可）を作り リストボックスは、式で、上記テキストを参照するようにしました。 テキストに、データを書き込むとリストにも表示されました。 ちなみにご指導いただいた Refresh を最後にしないと 表示されませんでした。 いろいろご指導ありがとうございました。 とりあえず、この回避方でやってみようと思います。 ありがとうございました。 いろいろご指導いただいたのに、良い結果をだせない 根性無しですみません。 こんなですが、今後ともよろしくお願いします。 '------------------------------------------- Set uidoc = ws.CurrentDocument '-- Set db = s.CurrentDatabase Set V_VINFO = db.GetView("V_VisitorINFO") a$ = uidoc.FieldGetText("ListA" ) dat1 = a$ '------------------------ s_cnt = V_VINFO.FTSearch(dat1,0) Set doc=V_VINFO.GetFirstDocument a$="" Do Until(doc Is Nothing) If Len(a$)=0 Then a$ =doc.ColumnValues( 2 ) Else a$=a$ & "; " & doc.ColumnValues( 2 ) End If Set doc = V_VINFO.GetNextDocument(doc) Loop Call uidoc.FieldSetText("test1",a$) Call uidoc.FieldSetText( "ListB", a$) Call uidoc.Refresh