关于VB的，请高手帮忙

Private Sub Text6_GotFocus()

Text6.Text = Str$(Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text))

End Sub
Private Sub Command1_Click()

DBGrid1.Visible = True

End Sub

Private Sub Command2_Click()

srxg = True
Data1.Recordset.AddNew
Text1.SetFocus

End Sub

Private Sub Command3_Click()

srxg = True
Data1.Recordset.Edit
Text1.SetFocus

End Sub

Private Sub Command4_Click()

Dim num As Integer
num = Val(Text1.Text)
ss = MsgBox("真的要删除这个纪录吗?", vbYesNo + vbInformation, "删除纪录")
If (ss = vbYes) Then
Data1.Recordset.Delete
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If
End If

End Sub

Private Sub Command5_Click()

srxg = True
Data1.Recordset.Update<

关于VB的，请高手帮忙 请VB的高手帮忙 关于简单VB题目,请高手帮忙.... 请vb高手帮忙 vb高手请帮忙~~~！ vb高手请帮忙~~！ VB高手请帮忙！！！ VB 请高手帮忙 关于VB的问题 望高手帮忙 关于VB的问题,请大家帮忙