sbagliato:

codice:
nome.DataSource = ADORS
nome.DataField = "nome"



corretto:

codice:
Set nome.DataSource = ADORS
nome.DataField = "nome"