> Dim F_DATA01 As String = String.Empty
> Dim F_DATA02 As String = String.Empty
(中略)
> F_DATA01 = dr.Item("STAFFCODE")           ' ★
> F_DATA02 = dr.Item("STAFFNAME")           ' ★

たとえば、戻り値が DBNull だったということはないでしょうか?

でも、その場合の例外は System.InvalidCastException の
「型 'DBNull' から型 'String' への変換は無効です。」になるはずなので
いくらなんでも、気がつかないはずは無いか…。

SQL を見る限り、フィールド名のスペルミスでもなさそうですし、
やっぱり、エラーの詳細が追えないと分からないですね。
失敗の原因が、掲示板投稿時に端折ったり改編した箇所にあるという可能性もありえますし。

ひとまず型変換の問題を事前回避するため、Option Strict On モードで
コンパイルが通る状態にまで改修してみることをお奨めします。