VBA Comando SQL per prelevare il dato - Trasformarlo in Variabile

Ciao a tutti,

ho creato questa sub

Sub VerificaData()
Dim conn As ADODB.Connection
   Dim rs As ADODB.Recordset
   Dim sConnString As String
   ' Create the connection string.
   sConnString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Database\Test.accdb; Jet OLEDB:Database Password=12345"
   ' Create the Connection and Recordset objects.
   Set conn = New ADODB.Connection
   Set rs = New ADODB.Recordset
   ' Open the connection and execute.
   conn.Open sConnString
   Set rs = conn.Execute("SELECT MAX (ID) from Clienti")
   ' Check we have data.
   If Not rs.EOF Then
       ' Set a Variable here but how?
      
   ' Close the recordset
       rs.Close
   Else
       MsgBox "Error: No records returned.", vbCritical
   End If
   ' Clean up
   If CBool(conn.State And adStateOpen) Then conn.Close
   Set conn = Nothing
   Set rs = Nothing
End Sub

In pratica mi servirebbe che il risultato del comando SQL venga settato in una variabile esempio VarMaxId cosi che io poi lo possa utilizzare per altri scopi.

Qualche suggerimento?

Tks,

Andre