SetFocus時、実行時エラー’5’

Tsu 2009-03-02 22:12:32 No: 141606

開発環境：WIN2K
DB：Oracle

ロジックは・・・
SELECT_COLUMN(0) = "TOK_SUM_CD"
SELECT_COLUMN(1) = "TOK_NAME"
SELECT_COLUMN(2) = "TOK_ADR1"
SELECT_COLUMN(3) = "TOK_ADR2"
SELECT_COLUMN(4) = "TOK_ADR3"
SELECT_TABLE(0) = "TOKUI_MST"
SELECT_WHERE(0) = "TOK_SUM_CD = '" & txtSum1.Text & "'"
If SelectSQL(5, 1, 1, 0) Then                  'データがあれば内容表示
    lblTokuimei1.Caption = TOK_NAME
    lblJyuusho1_1.Caption = TOK_ADR1
    lblJyuusho1_2.Caption = TOK_ADR2
    lblJyuusho1_3.Caption = TOK_ADR3
Else                                            'データが無ければエラー
    txtSum1.ForeColor = vbRed
    txtSum1.SetFocus
    MsgBox "得意先コードがありません", vbCritical + vbOKOnly, "エラー"
End If

上記ロジックのようにエラーが発生した際に文字を赤で表示してエラーが発生した項目にカーソルを位置づける処理なのですが・・・
txtSum1.SetFocusで実行時エラー'5'が表示されます。
※Elseの後の処理のそれぞれにメッセージ出力させてSetFocus直前のメッセージが表示された後に実行時エラーが発生したところまでは確認が取れた実行時エラーが出る原因が判りません。

ちなみにtxtSum1はEnabled=Tureです

【マルチ】 URL 2009-03-02 23:10:38 No: 141607

マルチ先
http://hanatyan.sakura.ne.jp/vb60bbs/wforum.cgi?no=13472&reno=no&oya=13472&mode=msgview&page=0