I am trying to create a recordset using the procedure:

Dim strSQL As String
    Dim rst As ADODB.Recordset
    Dim cnn As ADODB.Connection
    Set cnn = CurrentProject.Connection
    Set rst = New ADODB.Recordset
    
 
   
    rst.Open "QUERY9", cnn, adOpenKeyset
    
End Sub


I am getting this error and do not know why.

Invalid SQL statement; expected DELETE, INSERT, PROCEDURE, SELECT or UPDATE
QUERY9 runs in the query window and gives me the desired result so I know 
it works.

Thanks