Descrivo meglio il problema e posto per intero il codice!

devo passare ad una variabile il contenuto di una query che nel mio caso corrisponde ad un solo numero!! il VB appartiena al database in cui opera.

codice:
Private Sub ultimo_Click()

 Dim intValue, intOutput As Long
 Dim strSql As String
 Dim RS As ADODB.Recordset
   
   intValue = Me![id]
        
    strSql = "SELECT TOP 1 id FROM elenco_appuntamenti WHERE ID_Anagrafica = " & intValue & " ORDER BY id DESC"
    Set RS = CreateObject("ADODB.Recordset")
  
  CurrentProject.Connection.Execute strSql
        
    intOutput = RS("id").Value

DoCmd.OpenForm "appuntamenti", acPreview, , "id = " & intOutput & "", acFormEdit, acDialog

End Sub
In poche parole devo aprire una maschera posizionandola su un determinato record, il quale mi è dato dal risultato della query strQSql!

Ho provato ad apportare le modifiche suggerite da andreaciao_22 ma mi restituisce il seguente errore:

codice:
Impossibile trovare l'oggetto nell'insieme corrispondente al nome o al numero richiesto
il debug si posiziona su:

codice:
intOutput = RS("id").Value
Grazie