codice:
Public Function sckRegister(Dati As String) As String
    Dim objRs As ADODB.Recordset
    Dim strsql As String

    Set objRs = New ADODB.Recordset

    strsql = "INSERT INTO Utente (Username,[Password],nome,cognome)" _
    & " VALUES ( '" & Word(Dati, 2) & "' , '" & Word(Dati, 3) & "','" & Word(Dati, 4) & "','" & Word(Dati, 5) & "');"
        
    objRs.Open strsql, cn
    
    sckRegister = ".OkRegister&" & objRs("ID") & "&"

    Set objRs = Nothing
    
End Function
mi dice impossibile trovare l'oggetto riferito all'insieme o qualcosa del genere !