If Cinser > "" Then
Set RecTM3 = New ADODB.Recordset
RecTM3.Open "SELECT * FROM provincia;", DatDb1, adOpenStatic, adLockOptimistic
RecTM3.AddNew
RecTM3!Provincia = Cinser
RecTM3.UpdateBatch adAffectCurrent
Combo1(2).AddItem Cinser
End If
End If

'Cinser inserisce il nuovo nominativo nella combo alla fine di quelli gia letti dal database, mi servirebbe inserirlo per primo.