Salve ragazzi, sono bloccato in questa situazione:

Dim modelli As DataTable
modelli = DStdbg1.Tables("modelli")


Dim drCurrent As DataRow
drCurrent = modelli.NewRow()


drCurrent = modelli.Rows.Find(ID_GRD)
drCurrent.BeginEdit()
drCurrent("mod_codice") = TextBox1.Text
drCurrent("mod_descrizione") = TextBox2.Text
drCurrent.EndEdit()

id_grd è una variabile di tipo long con valore=10 nella tabella del database (Access) il valore nel campo esiste ed è chiave primaria ma drCurrente mi restituisce sempre nothing.
Cosa sto sbagliando secondo voi ?
Grazie per l'aiuto

Robbi