Acces 2000 de l'aide sur ADODB URGENT

Bonjour
je ne comprends pas grand chose à l'aide forunis par windows
concernant les recordset Si quelqu'un pouvait m'aiguiller sur un document plus explicite ce serait pas mal
mais j'ai un probleme urgent a resoudre
je voudrais reduire le nombre de ligne de programme et j'ai ça actuellement
nomchantier est le nom de la table que je veux ouvrir
nomchantier est aussi le champ

Private Sub chantier_NotInList(NouvDonnée As String, Réponse As Integer)
Dim msg As String
Dim connex As ADODB.Connection
Dim r_nomchantier As New ADODB.Recordset

msg = "Etes-vous sur de vouloir ajouter " & NewData & " dans la liste ?"
If MsgBox(msg, vbYesNo) = vbYes Then
Set connex = CurrentProject.Connection
r_nomchantier.Open "nomchantier", connex, adOpenKeyset, adLockOptimistic ' la table
r_nomchantier.AddNew
r_nomchantier!nomchantier = NewData 'le champ
r_nomchantier.Update
Response = acDataErrAdded
Else
Me.chantier.Undo
Response = acDataErrDisplay
End If
end sub

je vroudrais
Private Sub chantier_NotInList(NouvDonnée As String, Réponse As Integer)
' definir variable pour le nom de table normalement un string
'definir variable pour le nom de champ
affecter le nom de table et de champ qui m'interrese pour cette procedure
call listemofif(nouvdonnée,Réponse,nomtable,nomchamp)
end sub

private sub liste modifiable

Dim msg As String
Dim connex As ADODB.Connection
Dim r_table As New ADODB.Recordset

msg = "Etes-vous sur de vouloir ajouter " & NewData & " dans la liste ?"
If MsgBox(msg, vbYesNo) = vbYes Then
Set connex = CurrentProject.Connection
r_nomchantier.Open "nomtable", connex, adOpenKeyset, adLockOptimistic ' la table
r_table.AddNew
r_table!nomchamp = NewData 'le champ c'est là que ça coince r_table.Update
Response = acDataErrAdded
Else
Me.chantier.Undo
Response = acDataErrDisplay
End If

merci à tous
un peu long d'accord mais ..