エラーについて (ID:125757)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 今。編集してみました。 Set rs = New ADODB.Recordset With rs .ActiveConnection = address .Source = SQL .CursorType = adOpenStatic .LockType = adLockOptimistic .Open End With If rs.BOF Then MsgBox ("一致する名前はありません") End If Text1.Text = rs(1).Value Text2.Text = rs(3).Value Text3.Text = rs(4).Value Text4.Text = rs(5).Value rs.Close: Set rs = Nothing address.Close: Set address = Nothing End Sub このようにしてみたのですが、一致する名前がなければ、メッセージボックスは表示したのですが、なぜかその後にエラーになってしまいます。 なぜでしょうか・・・？