AH! c'è un errore sul codice,
rs.Source = "select * from inseriprod where codice='" & Text1.Text & "'"
rs.Source = "select * from tab_prestazioni where codicecl='" & Text1.Text & "'"

ho scritto due volte il source ma comunque non funziona.

AIUTOOOO!!!