Modify Query

Dim strSQL As String

strSQL = "SELECT [Company Name],[Vendor Name],[Account],[Statement Number],[Amount] from [Statements] "

Dim cat As New ADOX.Catalog
Dim cmd As New ADODB.Command
Dim qry As ADOX.view
cat.ActiveConnection = CurrentProject.Connection
Set cmd = cat.Views("Statement Informations").Command
cmd.CommandText = strSQL
Set cat.Views("Statement Informations").Command = cmd

Set cat = Nothing
DoCmd.OpenQuery "Statement Informations"


I used the above code to modify the existing query, "Statement Informations".

When I run it, it give out the error message:

Run-time error '3218':
Could not update; currently locked.

And then, I went to queries section, and open the query "Statement Informations" directly, close the query, and then run the code again.
Then, it works.

I don't know why.
If I run it on next machine on other day, then it give out same error.

How can I solve it?
Please let me know, thanks.