朋友做的毕业设计编程,请哪位高手帮帮忙 
是用Visual Basic 6.0 和Access做的. 
其中代码如下:请高手(不那么高也可以:))帮帮忙解释下. 详细的.
懂多少解释多少也可以.替谢啦~ 
Dim cn As New ADODB.Connection 
Dim rst As New ADODB.Recordset 
Dim dataPath As String 
Private Sub Com_Add_Click() 
rst.AddNew 
    rst.Fields("课程名称").Value = Text1.Text 
    rst.Fields("课程类型").Value = Combo1.Text 
    rst.Update 
    Call Reshlist 
     
ListView1.SetFocus 
 Set ListView1.SelectedItem = ListView1.ListItems(ListView1.ListItems.Count)  
  ListView1.SelectedItem.EnsureVisible 
End Sub 
Private Sub Com_Del_Click() 
 cn.Execute "delete * from jiaoan where 编号=" & Me.ListView1.SelectedItem.Tag 
    Reshlist 
End Sub 
Private Sub Command3_Click() 
Dim s As New Application 
Dim tb As Table 
      s.Documents.Open App.Path & "/FXM.doc" 
      s.Visible = True 
      With s 
       rst.Close 
       rst.Open "select * from jiaoan where 编号=" & ListView1.SelectedItem.Tag 
         
      Set tb = s.ActiveDocument.Tables(1) 
         tb.Rows(1).Cells(2).Range.Text = rst.Fields("课程名称").Value 
    End With 
    Set s = Nothing 
End Sub