ロジックは・・・
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 = 得意先名1  
    lblJyuusho1_1.Caption = 住所1
    lblJyuusho1_2.Caption = 住所2
    lblJyuusho1_3.Caption = 住所3
Else                                                    'データが無ければエラー
    txtSum1.ForeColor = vbRed
    txtSum1.SetFocus
    MsgBox "得意先コードがありません", vbCritical + vbOKOnly, "エラー"
End If

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

ここの掲示板の【掲示板ご利用に際し】は読まれましたか？
http://hpcgi1.nifty.com/MADIA/VBBBS2/wwwlng.cgi?print+200903/09030005.txt

Msgbox "a"
txtSum1.ForeColor = vbRed
Msgbox "b"
txtSum1.SetFocus
Msgbox "c"
MsgBox "得意先コードがありません", vbCritical + vbOKOnly, "エラー"

Msgbox"a","b"の後、SetFocusで実行時エラー'5'が表示されてMsgbox"c"が表示されます。
実行時エラーが発生しているところがSetFocusだというところまでは確認が取れていますが
直接の原因が判りません。

> 実行時エラーが発生しているところがSetFocusだというところまでは確認が取れていますが
> 直接の原因が判りません。

txtSum1.SetFocus時に、txtSum1は表示されていますか？
表示されていないようであれば、表示してからフォーカスを宛ててください。

よく、Sub Main内に記述し、FormのLoad前にやってしまうケースなど目にします。

ありがとうございました