Private Sub addCompany()                               
    Dim sql As String
    Dim rs As New ADODB.Recordset
    sql = "select * from Company where ComName='" & Me.comComName.Text & "'"
    Set rs = getRS(sql)
    If rs.EOF = False Then
         Exit Sub
    Else
        rs.AddNew
        rs.Fields(0) = num
        rs.Fields(1) = Me.comComName.Text
        rs.Fields(2) = Me.textCountry
        rs.Fields(3) = Me.textCity
        rs.Fields(4) = Me.textDomain
        rs.Fields(5) = Me.textSymbiosis
        rs.Fields(6) = Me.textComAddress
        rs.Fields(7) = Me.textComTel
        rs.Fields(8) = Me.textComFax
        rs.Fields(9) = Me.textRemark
        rs.Update
        rs.Close
    End If
End Sub
这一程序讲的什么意思?具体的功能是什么?谢谢!