実行時エラー 3021、データがない場合の対処について

質問

ただいま、社員管理システムを作成しております。

【システム概要】
フォーム上のテキストボックス（Text_address、Text_name)に
住所（Text_address）、名前（Text_name）に情報を入力後、
フォーム上の登録ボタン（Cmd_save)を押すことにより、
入力した情報がMYSQLサーバに書き込まれるWrite処理。
フォームのコンボボックス（Combo1)から日付を選択し、フォーカスを失うと、
選択した日付を元に、MYSQLサーバからデータを引っ張ってきて、
フォーム上のラベル（Label_address、Label_name）へ表示させるRead処理。
今はRead処理について行き詰っております。

下記のプログラムは、見よう見まねでコーディングし、
一応、日付を見てMYSQLサーバに探しに行き、該当データ（住所、氏名）を
ラベルに表示することはできます。
ただ、サーバ側に登録されていない日付を選択した場合、
実行時エラー 3021
「BOF と EOF のいずれかが True になっているか、または現在のレコードが削除されています。
要求された操作には、現在のレコードが必要です。」
とエラーが返ってきます。
選択した日付の該当データが0件のためエラーが返ってくるということはわかったのですが。。。

後々、その該当しない日付を選択し、フォーム上のテキストボックスに情報を入力後、登録ボタンを押した際、
その日付に対する情報を登録したいので、該当しない日付を選択しても、
エラーが返ってこないだけの処理をでよいのですが、
どのように処理すればよいのでしょうか？

Private Sub Combo1_LostFocus()

　　Dim myADOcon As ADODB.Connection
　　Dim myrec As ADODB.Recordset

　　Set myADOcon = New ADODB.Connection
　　Set myrec = New ADODB.Recordset

myADOcon.Open "Driver={MySQL ODBC 3.51 Driver};SERVER =………;"
myrec.Open "select * from TestTable where Day='" + Combo1.Text + "';", myADOcon

　　Label1.Caption = myrec.Fields("address").Value
　　Label2.Caption = myrec.Fields("name").Value
End Sub

わかりにくい質問ですみませんが、
ご教示よろしくお願いいたします。

回答No.1

nda23 · ベストアンサー

myrec.Field をイジル前に myrec.EOF が「偽」であることを確認
しておく必要があります。

　　If myrec.EOF Then
　　　　Label1.Caption = ""
　　　　Label2.Caption = ""
　　Else
　　　　Label1.Caption = myrec.Fields("address").Value
　　　　Label2.Caption = myrec.Fields("name").Value
　　End If