Code Freezes database

[DMT Dave]

Hi Guy's, the following code freezes the database having t0 ctrl-alt-delete to end task and reopen ?



All field names are correct after checking that

This code is to search any part of a telephone number

Dim rs As DAO.Recordset, rs2 As DAO.Recordset
Dim mBody as String, mTel as String
mTel = Me.txtTel
Set rs = CurrentDb.OpenRecordset("Select tblEmails.Client, tblEmails.Postcode, tblEmails.Item, tblEmails.Tel From tblEmails WHERE Tel Like ""*" & mTel & "*""")
Do Until rs.EOF
mBody = rs.Fields("Client") & "-" & rs.Fields("PostCode") & "-" & rs.Fields("Item") & "-" & rs.Fields("Tel") & vbNewLine
Loop
MsgBox (mBody)
Set rs = Nothing

[isladogs]

Try adding rs.MoveFirst after the Set rs line
Do you have any null values in the recordset?

[CJ_London]

you also need a movenext before you loop

[isladogs]

Oops. Missed that!