Ciao,
un aiutino non sarebbe male.

codice:
       If Not (Rs.EOF And Rs.BOF) Then 'se il recordset non è vuoto
            Me.Text1(i).Text = Rs("CodPlu")
            Me.Text8(i).Text = Rs("CodArtForn")
            Me.Text2(i).Text = Rs("Descrizione")
            Me.Text3(i).Text = Rs("Confezione")
            Me.Text4(i).Text = Rs("peso")
            Me.Text5(i).Text = Rs("pezzi")
            Me.Text7(i).Text = Rs("Rich")
            Me.Text9(i).Text = Rs("IdCliente")
            
        End If
Leggo il recordset con una select, tutti i campi si inseriscono tranquillamente tranne "rich" che me lo da Null ed IdCliente che un campo contatore. Se Faccio il debug IdCliente mi scrive False

Grazie