すみません　Do Loop文の問題なんですけれど

Private Sub Disp()
Dim rs As Recordset
Dim Str As String
Str = "SELECT * FROM T_ID" _
& " WHERE I = '" & txtUser & "'" _
& " AND P = '" & txtPass & "'"
Set rs = dbWork.OpenRecordset(Str, dbOpenDynaset)
If Not rs.EOF Then
If rs![I] = Me.txtUser.Text And _
rs![P] = Me.txtPass.Text Then
LoginSucceeded = True
End If
MsgBox "ﾛｸﾞｵﾝ"
rs.MoveNext
Me.Hide
If
LoginSucceeded = False
MsgBox "ﾊﾟｽﾜｰﾄﾞが正しくありません。もう一度入力してください !"
End If
rs.Close
End If
End Sub

終了してしまいます　。。　適切な置き場所がわかりません、、、
お願いします