aokazumajinさん、こんにちは。

シングルラインエディットが空白の時、id=\"001\"として検索すればいいわけですよね？
それならまず流れとして
１ idが空白か調べる
２　空白ならidを\"001\"とする
３　dw_1.Retrieve(id)
と書けば、goto がいらなくてすっきりしますよ。

id=\"001\"の時に１個目のif文は真になっているみたいなので、
間違っているならid=\"\"の時の２個目のif文の方ですね。
まず試して欲しいのが、シングルラインエディットが空白の時、
本当にidが空白になっているか、また\"001\"が代入されているか、
チェックすると良いです。
ｉｆ文の前に、MessageBox(\"\",id) を入れれば、現在のidの値が見れますよ。

文字変数idが空白かどうかをチェックする時、私はしつこいほど
チェック入れたりしますよ。
　if Trim( id ) = \"\" or IsNull( id ) then
ってな文にすると、しつこいでしょ？（笑）
idの値をチェックしながら、どうすればif文が思うように動くか
考えてみてください。