Ciao allora sull'evento click del pulsante salva del form modifica clienti ho questo codice:

cn.Execute ("UPDATE Clienti SET NOME='" & Replace(txtnome.text, "'", "''") & .... " ")
MsgBox "Modifica clienti eseguita"
' FACCIO IL REFRESH PER AGGIORNARE IL NOME
frmClienti.dgclienti.Refresh
frmClienti.txtRicerca.text = ""
frmClienti.cmdcanc.Enabled = False
frmClienti.cmdmod.Enabled = False
Unload Me

Set rdsclienti = cn.Execute("SELECT * FROM Clienti")
quindi nell'evento form load della form clienti (dove si trova il datagrid)

Private Sub Form_Load()
Set rdsclienti = cn.Execute("SELECT * FROM Clienti ORDER BY COD_CLI DESC")
Set dgclienti.DataSource = rdsclienti
dgclienti.Refresh

dgclienti.Columns(0).Width = 490
dgclienti.Columns(1).Width = 5300
dgclienti.Columns(2).Width = 2069
dgclienti.Columns(3).Width = 569
dgclienti.Columns(4).Width = 975
dgclienti.Columns(5).Width = 420
dgclienti.Columns(6).Width = 1214
dgclienti.Columns(7).Width = 3119
dgclienti.Columns(8).Width = 3119
dgclienti.Columns(9).Width = 3119
dgclienti.Columns(10).Width = 3119
dgclienti.Columns(11).Width = 3119
dgclienti.Columns(12).Width = 3119
dgclienti.Columns(13).Width = 3119
dgclienti.Columns(14).Width = 3119

dgclienti.RowHeight = 600
dgclienti.Columns(7).WrapText = True

End Sub
no non c'è nessun refresh del recordset dove lo devo mettere eventualmente? :master:

Ciao e grazie
Fabio