عروض أعمدة ال datagrid تلقائيآ حسب البيانات المكتوبة فيها

توصلت لحل والحمد لله
هذا كود يقوم بهذه العملية (وقد جربته ونفذ المطلوب والحمد لله)

Dim MAXWid(9)

Private Sub Form_Activate()
   For J = 0 To 3
 Rem0,1,2,3"  الرقم3 باعتبار أن ال ataGrid1  أربعة أعمدة
Label1(J).AutoSize = True
Label1(J).Font.Size = DataGrid1.Font.Size
Label1(J).Font.Name = DataGrid1.Font.Name
Label1(J).Font.Italic = DataGrid1.Font.Italic
Label1(J).Font.Bold = DataGrid1.Font.Bold
   Next J
Adodc1.Refresh
Nrec = Adodc1.Recordset.RecordCount
Adodc1.Recordset.MoveFirst
For I = 1 To Nrec - 1
   For J = 0 To 3
      TEXTT = DataGrid1.Columns(J).Value
      Label1(J).Caption = TEXTT + " "
      If MAXWid(J) < Label1(J).Width Then MAXWid(J) = Label1(J).Width
   Next J
    Adodc1.Recordset.MoveNext
Next I
   
   For J = 0 To 3
      TEXTT = DataGrid1.Columns(J).Value
      Label1(J).Caption = TEXTT + " "
      If MAXWid(J) < Label1(J).Width Then MAXWid(J) = Label1(J).Width
   Next J

   For J = 0 To 3
DataGrid1.Columns(J).Width = MAXWid(J) + 100
   Next J

End Sub

وأرجو من أى منكم أن يكتبه بأسلوب أسهل من ذلك
أو أن يذكر لى خاصية من خواص ال datagrid تقوم بهذه العملية
ولكم ألف شكر