VBA Loop Problem

[Good Man]

Guys,
Can anyone help me with the atatched code. Been working on it for to long. The problem is every time a run the code , the reports export fine and when the loop finshes my PC freezes.
Would really apprecaite any advice. I have tried if exit statments to no avail.

Private Sub Command91_Click()

Dim db As Object
Dim rs As Object
Dim StrPractice As String
Dim Practice As String
Set db = CurrentDb()
Set rs = db.OpenRecordset("SelectPractice")


Do Until rs.EOF = True


StrPractice = ("Practice")

DoCmd.Echo False, ""

Me.Practice = StrPractice

DoCmd.OpenReport "Master Practice Report", acViewPreview, acNormal


DoCmd.OutputTo acOutputReport, , _
acFormatSNP, "C:\test\" & StrPractice & ".snp", False
DoCmd.Close acReport, "Master Practice Report"

rs.MoveNext

Loop


Set rs = Nothing

Set db = Nothing


Exit Sub

End Sub

 

[Scrag Meister]

My first move would be to put in an error trap and check if there is one being raised and put in some Debug.Prints so you can see exactly where the execution has got to.