[VBA]recupero valore massimo tramite query e visualizzazione del risultato in textbox

[Astharot]

Ciao,
il risultato della query devo visualizzarlo nel campo Cod_Progressivo di una form (quando apro VBA la form interessata si chiama Form_Nuovo_Cliente) ma mi dice che è stato immesso un valore non valido per il campo

il codice è il seguente

Option Explicit
Private rs As ADODB.Recordset

Private Sub Cod_Cliente_AfterUpdate()
Dim sSql As String
Dim sWhere As String

sSql = "SELECT Max(Clienti.Cod_Progressivo)+ 1 FROM Clienti"
sWhere = ""
sWhere = sWhere & " Clienti.Cod_Cliente LIKE '" & Replace(Cod_Cliente, "'", "''") & "'"

Set rs = CurrentProject.Connection.Execute(sSql)

Me.Cod_Progressivo = rs
End Sub

[oregon]

Beh ... rs e' tutto il recordset ... devi prendere il primo elemento ovvero

Me.Cod_Progressivo = rs(0).Value

[Astharot]

sei mitico oregon ^^
thx mille