codice:
Public Sub LeggiDalDb()
    txtSocietà = rs.Fields(0)
    txtCognome = rs.Fields(1)
    txtNome = rs.Fields(2)
    txtVia = rs.Fields(3)
    txtNumero = rs.Fields(4)
    txtCap = rs.Fields(5)
    txtCittà = rs.Fields(6)
    txtProvincia = rs.Fields(7)
    txtStato = rs.Fields(8)
End Sub
in questa routine non vedo nessun riferimento al form1... e probabilmente è qui l'errore...
dico probabilmente perchè, diligentemente, hai "dimenticato" di dire numero e descrizione dell'errore...

per risolvere hai 2 strade... o poni un riferimento dinamico, nel caso tu voglia utilizzare questa routine anche in altri forms, dove sono presenti gli stessi textbox, o indichi contestualmente ai nomi dei controlli, il nome del form "padre":

quindi o così (riferimento dinamico):
codice:
Public Sub LeggiDalDb(Where As Form)
With Where
    .txtSocietà = rs.Fields(0)
    .txtCognome = rs.Fields(1)
    .txtNome = rs.Fields(2)
    .txtVia = rs.Fields(3)
    .txtNumero = rs.Fields(4)
    .txtCap = rs.Fields(5)
    .txtCittà = rs.Fields(6)
    .txtProvincia = rs.Fields(7)
    .txtStato = rs.Fields(8)
End With
End Sub
o "statico":
codice:
Public Sub LeggiDalDb()
With Form1
    .txtSocietà = rs.Fields(0)
    .txtCognome = rs.Fields(1)
    .txtNome = rs.Fields(2)
    .txtVia = rs.Fields(3)
    .txtNumero = rs.Fields(4)
    .txtCap = rs.Fields(5)
    .txtCittà = rs.Fields(6)
    .txtProvincia = rs.Fields(7)
    .txtStato = rs.Fields(8)
End With
End Sub
in pratica cambia poco...

resta da vedere, però, se anche la visibilità del Recordset è quella del Form1... in tal caso devi specificare anche la "paternità" di rs

Boolean