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