Chiedo venia

CODE:
Private Sub cmd_Salva_Click()
ChiudiRs
'riga dove si genera l'errore
Rs.Open "Articolo", Conn, adOpenKeyset, adLockOptimistic
If Rs.EOF Then
Rs.AddNew
Rs!Codice = txt_codice.Text
Rs!Descrizione = txt_descrizione.Text
Rs!Categoria = txt_categoria.Text
Rs!Fornitore = txt_fornitore.Text
Rs!Prezzo = txt_PrezzoAcquisto.Text
Rs.Update
End If
End Sub