質問です。
データベースを使ったのプログラムを作ってるんですが（今回はAccess）、
ループをしているときにレコードが無くなったらループを抜ける方法がわかりません。
見苦しいコードですが、ご教授お願いします。（改行が多いと書き込めないので詰めてあります・・・）


Dim oleCn As New OleDb.OleDbConnection
Dim oleCmd As OleDb.OleDbCommand
Dim oleReader As OleDb.OleDbDataReader
　　　　Dim str1 As String
'** 接続文字列を生成
oleCn.ConnectionString = _
"provider = Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = Access.mdb;" & _
"Persist Security Info = false "
'** 接続
oleCn.Open()
'** SQLコマンド
oleCmd = New OleDb.OleDbCommand("SELECT aaa , iii , From uuu ", oleCn)
oleReader = oleCmd.ExecuteReader()
　　　　'** ↓レコードが無くなったらループを抜ける条件が知りたい
Do Until [条件]
[処理]
str1 = oleReader("aaa")
　　　　　　'** str1とoleReader("aaa")が違ったら抜ける
Do Until oleReader("aaa") <> str1
　　　　[処理]
　　　　'** 次のレコードに移動
　　　　oleReader.Read()
Loop
　　　　　　[処理]
Loop