[VBA] Query interne If non funzionanti

[Ndr]

Ho questo codice

Set con = CurrentDb
sql = "SELECT max(IdInterno) as maxInterno From IntestatarioInterno WHERE Lettera = '" + valoreOPT + "' And Numero=true"
Set rs = con.OpenRecordset(sql)
If (rs!maxInterno > 0) Then
    'esiste già un valore nel db prendo il valore e lo aggiorno
    con.Close
    Set con = CurrentDb
    sql = "SELECT Numero,IdInterno FROM IntestatarioInterno WHERE IdInterno = '" & rs!maxInterno & "'"
    Set rs = con.OpenRecordset(sql)
    con.Close
    'sql2 = "INSERT INTO IntestatarioInterno VALUES('','" + valoreOPT + "','& rs2!Numero &'"
    'Set rs2 = con.OpenRecordes(sql)
    
    MsgBox (sql)
Else
'Inserisco il valore nel database a partire dal valore dichiarato in num
    con.Close
    Set con = CurrentDb
    sql = "INSERT INTO IntestatarioInterno VALUES('','" + valoreOPT + "','& num &','1')"
    Set rs = con.OpenRecordset(sql)
    con.Close
End If 

La prima query la esegue correttamente.
Se entra nel ramo THEN
dice "Oggetto non valido o non impostato"
nell'else
dice "operazione non valida"

dove sbaglio?