Win2000、Access2000です。

親フォーム：サブフォーム枠 frmDetail、テキストボックスtxtdata、ボタンあり
サブフォーム：コンボボックス cmbdata

どちらも非連結フォームです。
親フォームのテキストボックスに好きな値を入力し、ボタンをクリックすると、
サブフォームの内容が書き換わります。
以下はボタンクリック時の処理です。

With Me!frmDetail.Form
.cmbdata = Null
.cmbdata.Tag = ""
.cmbdata.Format = ""
.cmbdata.RowSourceType = "Table/Query"
.cmbdata = Me!txtdata
.cmbdata.RowSource = ""

.cmbdata = Me!txtdata　←ここでエラーが発生
.cmbdata.RowSource = "select VALUE from T_WRK_TEST order by ID;"
End With

回避する方法はないでしょうか？
詳しい方、どうかご教授下さい。