てとらぽっとさん、t.yさん、こてちゅさん、こんにちは。
本日、今まで考えておりましたが、またエラーが出てしまいます。
今回はModifyのエラーのようです・・・。

/*--- ここからスクリプト ---*/
// w_shouhinsentaku の open イベント
//データウィンドウコントロールによるデータ検索を行います。

long ll_row //Retrieve関数の戻り値を取得する変数
string sSelect, sWhere ,rc ,mod_string 

sSelect = \"SELECT VC_SYOUHIN_NM, NM_TANKA, CH_TANI, CH_COMTAISYOU, CH_SOURYOU_UMU,M_COMTAISYOU_KNG, 
CH_SYOUHIN_CD FROM KIKAN_SYOUHIN_MST \"

If sle_shouhincode.text <> \"\" Then                   /*/商品IDが書いてあった場合*/
sWhere = \"WHERE CH_SYOUHIN_CD = \'\" +  sle_shouhincode.text + \"\'\"
Else
IF rb_com.checked = True THEN /*//コミッション対象のみ*/
sWhere = \"WHERE CH_COMTAISYOU = 1\"
ELSEIF rb_comgai.checked = True THEN /*//コミッション対象外のみ*/
sWhere = \"WHERE CH_COMTAISYOU <> 1\"
ELSEIF rb_all.checked = True THEN /*//全検索*/
sWhere = \"\"
ELSEIf sle_shouhinmei.Text <> \"\" THEN /*//商品名が書いてあるとき*/
sWhere = \"WHERE VC_SYOUHIN_NM = \" + sle_shouhinmei.Text
ELSE
/*//空欄のとき（？）*/
sWhere = \"\"
END IF
End If

mod_string = \"dw_shouhinsentaku.Object.DataWindow.Table.Select =\'\" +  sSelect + sWhere + \"\'\"

rc = dw_shouhinsentaku.modify(mod_string)

If rc = \"\" Then
dw_shouhinsentaku.Retrieve()
Else
MessageBox(\"Status!\",\"Modify Failed\" + rc)
End If
/*--- ここまでスクリプト ---*/

これを実行すると、
1 行 カラム 49: 不適切な構文です。
というエラーが出てしまいます。

また、これで作成されたＳＱＬ文をAccessのクエリーに代入した所、ちゃんとデータを検索します。
と、言うことはSQLは間違っていないと思うのですが・・・。
Modifyの使い方が間違っているのでしょうか？

それでは、用件のみですが失礼致します。