ＡｃｃｅｓｓのＤＢ　、ＶＢ６で、Ｄａｔａ−Ｃｏｍｂｏ のＬｉｓｔ−Ｆｉｅｌｄへの表示。
（使用目的は、数百点の部品名から重複なしで、あいまい選択して、リスト表示したい）
データベースのＦｉｅｌｄ１に、
　「ＡＢＣ」、「ＡＢＣ」、「ＣＤＥ」、「ＪＫＬ」、「ＪＫＬ」とある時に
１）Ｔｅｘｔ１が「ＢＬＫ」であれば、
　　Ｓｅｌｅｃｔ　ＤＩＳＴＩＮＣＴ　Ｆｉｅｌｄ１　Ｆｒｏｍ　ＤＢ　で
　　　　「ＡＢＣ」
　　　　「ＣＤＥ」
　　　　「ＪＫＬ」、とリスと表示します
２）Ｔｅｘｔ１に「Ｃ」を入力すると
　　　　「ＡＢＣ」、「ＣＤＥ」の2行をリストフィールドに表示したい。
　　Ｓｅｌｅｃｔ　ＤＩＳＴＩＮＣＴ　Ｆｉｅｌｄ１　ＷＨＥＲＥ　Ｆｉｅｌｄ１”＿
　　”Ｌｉｋｅ　’％”＆　Ｔｅｘｔ１　＆　”％’”　では動作しない。
　　そこで、Ｓｅｌｅｃｔ　ＤＩＳＴＩＮＣＴ　Ｆｉｅｌｄ１　ＦＲＯＭ　ＤＢ　と、　　　　
　　ｒｓ.Ｆｉｌｔｅｒ　＝　”Ｆｉｅｌｄ１　Ｌｉｋｅ　’％”＆　Ｔｅｘｔ１　＆”’”　　
　　とすると、ｒｓの内容は、２）のようになりますが、リストフィールドには、
　　Ｆｉｌｔｅｒする前の「ＤＩＳＴＩＮＣＴ」の内容になります。
書き方がおかしいのか、実現する方法を教えていただきたくお願いいたします・　

> 申し訳ありませんが、下記をよく読んで質問内容を書き直して投稿して下さい。
> このままでは、どなたもレスをする気になれないかと思いますよ。
> 英数は、基本的に半角で大文字、小文字を区別して書いて頂かないと読みづらいです。
> 特にコードの部分で全角を使用されると、間違いとタイプミスの区別がつきません。
>
> 　http://hanatyan.sakura.ne.jp/hazimeni.htm#keijiban

　大変御見苦しい投稿をして、申し訳ありません、心から反省しています。
御指摘いただきました事、感謝いたします。
　　　
OS：Windows XP(SP6)　
VB：VB6.0(SP3)

「dcmbtest」は、DataComb、「txttest」は「あいまい抽出」する部品名の一部を入力。
「BUHINMEI」は、デタベース「SIZAIITIRAN2」のフィールド名です。

If Area = 0 Then      
   dcmbtest.ListField = "BUHINMEI"
    
    MYSQL = "SELECT DISTINCT BUHINMEI FROM SIZAIITIRAN2"
    Set RS1 = New ADODB.Recordset
    RS1.Open MYSQL, CN, adOpenStatic, adLockOptimistic
    
    RS1.MoveFirst
    RS1.Filter = "BUHINMEI Like '%" & txttest.Text & "%'"
　  lblkensu.caption =  RS1.Recordcount　  
    Set dcmbtest.RowSource = RS1
ElseIf Area = 2 Then
    RS1.Close
    Set RS1 = Nothing
End If

以上がテストしたプログラムで　結果は、重複なしの部品名が　FieldList　に表示され、
あいまい抽出された結果ではありませんでした。
「lblkensu」に表示される件数は、フィルターされた結果の件数が表示されました。
「重複なし」で「あいまい抽出」した結果を、FieldList　に表示できるのか、
教えていただきたく、投稿いたしました。
今回は、御迷惑をかけました。宜しくお願いします。

今回は、不備な投稿の御指摘を頂きました事、感謝いたします。
この処理は、「諦めてやめました」ので終わります。
今回は、ルール違反をしたようで、関係者の皆様の気分を害した事を心からお詫びいたします。
もう一度、ルールを読み直して、レスをいただける様努力します。
今回は、申し訳ありませんでした。