给点指教吧，加些注释，全点

Question

Private Sub frmInitialize()
  Dim txtW As Integer
  Dim i As Integer
  
  txtW = Me.ScaleX(DataGrid1.Font.Size, vbPoints, vbTwips)
  '获取像素值的大小
  
  Set DataGrid1.DataSource = Adodc1'指定数据源
  DataGrid1.AllowAddNew = False　　'添加标志无效
  DataGrid1.AllowArrows = True　　 '指标有效
  DataGrid1.AllowDelete = False　　'删除标志无效
  DataGrid1.AllowRowSizing = True　'行自动调整标志有效
  DataGrid1.AllowUpdate = False　　'自动更新标志无效
  DataGrid1.HeadLines = 1.5　　　　'头行大小
  DataGrid1.Splits(0).MarqueeStyle = dbgHighlightRow
  
  For i = 1 To DataGrid1.Columns.Count - 1
    DataGrid1.Columns.Remove 1　　'删除所有行，进行初始化
  Next i　'以下是为DATAGRID每列分别设标题（CAPTION）、
　'对应数据库字段（DATAFIELD）、宽度（WIDTH）
　'格式化字符（NUMBERFORMAT）、对齐方式（ALIGNMENT）  DataGrid1.Columns(0).Caption = "职工号"
  DataGrid1.Columns(0).DataField = "ID"
  DataGrid1.Columns(0).Width = txtW * 3 + 60
  DataGrid1.Columns(0).NumberFormat = "@@@@@"
  
  DataGrid1.Columns.Add 1
  DataGrid1.Columns(1).Caption = "姓  名"
  DataGrid1.Columns(1).DataField = "M_name"
  DataGrid1.Columns(1).Width = txtW * 3 + 60
  
  DataGrid1.Columns.Add 2
  DataGrid1.Columns(2).Caption = "性别"
  DataGrid1.Columns(2).DataField = "M_sex"
  DataGrid1.Columns(2).Width = txtW * 2 + 60
  DataGrid1.Columns(2).NumberFormat = "@@"
  
  DataGrid1.Columns.Add 3
  DataGrid1.Columns(3).Caption = "年龄"
  DataGrid1.Columns(3).DataField = "M_age"
  DataGrid1.Columns(3).Width = txtW * 2 + 60
  DataGrid1.Columns(3).NumberFormat = "@@@"  DataGrid1.Columns.Add 4
  DataGrid1.Columns(4).Caption = "部  门"
  DataGrid1.Columns(4).DataField = "M_bm"
  DataGrid1.Columns(4).Width = txtW * 3 + 60
  
  DataGrid1.Columns.Add 5
  DataGrid1.Columns(5).Caption = " 职    称 "
  DataGrid1.Columns(5).DataField = "M_zc"
  DataGrid1.Columns(5).Width = txtW * 5 + 60
  
  DataGrid1.Columns.Add 6
  DataGrid1.Columns(6).Caption = "  工    资  "
  DataGrid1.Columns(6).DataField = "M_gz"
  DataGrid1.Columns(6).Width = txtW * 6 + 60
  DataGrid1.Columns(6).NumberFormat = "\￥#,###.00 "
  DataGrid1.Columns(6).Alignment = dbgRight  DataGrid1.Columns.Add 7
  DataGrid1.Columns(7).Caption = "  奖    金  "
  DataGrid1.Columns(7).DataField = "M_jj"
  DataGrid1.Columns(7).Width = txtW * 6 + 60
  DataGrid1.Columns(7).NumberFormat = "\￥#,###.00 "
  DataGrid1.Columns(7).Alignment = dbgRight  DataGrid1.Columns.Add 8
  DataGrid1.Columns(8).Caption = "  总    计  "
  DataGrid1.Columns(8).DataField = "M_zj"
  DataGrid1.Columns(8).Width = txtW * 6 + 60
  DataGrid1.Columns(8).NumberFormat = "\￥#,###.00 "
  DataGrid1.Columns(8).Alignment = dbgRight
  
　'设定Text1对应的字段
  For i = 0 To Text1.UBound
    Text1(i).Tag = DataGrid1.Columns(i).DataField
    Text1(i).Alignment = dbgCenter
    Text1(i).Locked = True
  Next i
  
  Adodc1.Caption = ""　　　　　'数据控件标题设置
  '让下列控件无效
　change.Enabled = False
  append.Enabled = False
  delete.Enabled = False
  cmdOK.Enabled = False
  cmdCancel.Enabled = False
  
End Sub