Private Sub Form_Load()
Left = 0
Top = 0
Me.Height = main.ScaleHeight
Me.Width = main.ScaleWidth
Frame1.Enabled = Option1(1).Value
For i = 0 To 4
   Check1(i).Enabled = Option1(1).Value
Next
End Sub

Private Sub form_unload(Index As Integer)
   DataEnvironment1.Connections(1).cancel
End Sub

Private Sub Option1_Click(Index As Integer)
   Frame1.Enabled = Option1(1).Value
   For i = 0 To 4
      Check1(i).Enabled = Option1(1).Value
   Next
End Sub
Private Sub Command1_Click()
   If Option1(0) Then
      aa = "实发工资=基本工资+岗位津贴+职务补助+奖金-水电费-房租"
   Else
      aa = ""
      For i = 0 To 4
         If Check1(i) Then aa = aa & Check1(i).Caption & "=0"
      Next
      aa = aa & "实发工资=0"
   End If
   DataEnvironment1.Connections(1).Execute "Update gzb set" & aa《这句错误说是update语句的句法错误》
End Sub
照书上的例子做的，不知错在哪里了，求助。