VB求助，能帮我翻译下面语句吗？我真的不是很明白。

Private Sub Command3_Click()

Text2.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Command4.Enabled = False
Command7.Enabled = False
Command5.Enabled = True
Command6.Enabled = True
Adodc2.RecordSource = ssql
Adodc2.Refresh
Set DataGrid1.DataSource = Adodc2
DataGrid1.Refresh
If Adodc2.Recordset.EOF = True Then
Adodc2.Recordset.AddNew
Else
Adodc2.Recordset.MoveLast
Adodc2.Recordset.AddNew
End If
Combo1.Text = Combo1.List(0)
End Sub
Private Sub Command4_Click()
With Adodc2.Recordset
If .EOF = False Then
.Delete
If .EOF Then
.MovePrevious
End If
.Update
End If
End With
Text2.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
End Sub
能不能一句一句解释啊？实在不明白。最主要很是下面的<

Private Sub Command3_Click() '命令按钮单击

Text2.Enabled = True
设置文本框可用

Command4.Enabled = False
Command7.Enabled = False
Command5.Enabled = True
Command6.Enabled = True
设置按钮可用/不可用
Adodc2.RecordSource = ssql
这个是一个数据库控件，设置Adodc2的数据源＝Ssql
Adodc2.Refresh 刷新
Set DataGrid1.DataSource = Adodc2
设置DataGrid1的数据源为Adodc2
DataGrid1.Refresh 刷新
If Adodc2.Recordset.EOF = True Then
如果数据库中没有数据，
Adodc2.Recordset.AddNew
添加 新数据项
Else 否则
Adodc2.Recordset.MoveLast
移动到数据库最后一项
Adodc2.Recordset.AddNew
添加数据
End If 完成
Combo1.Text = Combo1.List(0)
设置Combo1（下拉表单）显示第一项
End Sub 完成
Private Sub Command4_Click() 按钮4单击
With Adodc2.Recordset
以下都以Adodc2.Recordset为基础
If .EOF = False Then
如果 有数据
.Delete 删除
If .EOF Then 如果没有数据
.MovePrevious 移动到开头
End If
.Update 更新数据库
End If
End With