ORIGINAL CODE
Private Sub Command35_Click()
On Error GoTo Err_Command35_Click
Dim stDocName As String
stDocName = "Room Info"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Command35_Click:
Exit Sub
Err_Command35_Click:
MsgBox Err.Description
Resume Exit_Command35_Click
End Sub
MY EDITS...