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