谁能给加一些代码注释万分感谢！

由于没接触过vb语言，又有急用，谁能帮忙加一些主要的注释谢谢大家。

6.2.1发卡
Private Sub cmd1_Click(Index As Integer)
    Dim comPort As Integer
    Dim pwd As String
    Dim rec_Num As Integer
    Dim rec_buf() As card_record
    Dim sCard_No As Currency
    Dim card_Type As Long
    Dim sDevNo As Integer
    Dim i As Integer
    Dim rs As New ADODB.Recordset
    Dim val As Integer

'On Error GoTo err
    Select Case Index
        Case 0 '读卡
            '小贺函数
            For i = 0 To 7
                If Option1(i).value = True Then
                    Exit For
                End If
            Next i
            sDevNo = OpenCom(i + 1)
            If Not FoundCard(sDevNo, sCard_No) Then
                CloseComm sDevNo
                MsgBox "读卡不成功"
                Exit Sub
            End If
            'ReadWorkCardNo sDevNo, sCard_No
            Text2(0).Text = sCard_No
            CloseComm sDevNo
            'MsgBox "读卡成功"
            cmd1(1).Enabled = True '发读卡按纽有效
        Case 1 '发卡
            If Trim(Text2(0).Text) = "" Then
                MsgBox "卡号不存在"
              '  cmd1(0).Enabled = True
                Exit Sub
            End If
            If Not IsNumeric(Text2(1).Text) Then
                MsgBox "押金格式不正确", vbQuestion
             '   cmd1(0).Enabled = True
                Exit Sub
            End If
            If CDbl(Text2(1).Text) > 268435455# Then '"0FFFFFFF"
                MsgBox "押金过大"
               ' cmd1(0).Enabled = True
                Exit Sub
            End If
            Set rs = adoConnect.Execute("select count(*) from zy_drivercard_info where opcard_no=" & Text2(0).Text)
            If rs.Fields(0).value <> 0 Then
                val = MsgBox("此卡已发过,是否清除以前记录", vbYesNo)
                If val = 6 Then 'yes
                    If add_Card Then
                        MsgBox "增加完成", vbOKOnly
                        Text2(0).Text = ""
                        Text2(1).Text = ""
                    Else
                        MsgBox "增加不成功"
                        Exit Sub
                    End If
                End If

            Else
                If add_Card Then
                    MsgBox "增加完成", vbOKOnly
                    Text2(0).Text = ""
                    Text2(1).Text = ""
                Else
                    MsgBox "增加不成功"
                    Exit Sub
                End If
            End If


        Case 2
           ' cmd1(0).Enabled = True
            Unload Me
    End Select
    Exit Sub
err:
    MsgBox "职工编号输入错误！"
End Sub

6.2.2司机卡信息
Private Sub cmd2_Click(Index As Integer)
Select Case Index
    Case 0
        If List2.Text = "" Then
            MsgBox "请选择卡号", vbQuestion
            Exit Sub
        End If

'        If List2.SelCount = 0 Then
'            MsgBox "请选择卡号", vbQuestion
'            Exit Sub
'        End If
        If Not update_Card Then//判断操作是否成功
            MsgBox "操作不成功"
            Exit Sub
        End If

    Case 1
        Unload Me

End Select
End Sub
6.2.3 司机设置、司机管理
Private Sub cmd3_Click(Index As Integer)
    Dim rs As New ADODB.Recordset
    Dim cmdStr As String

    Select Case Index
        Case 0
            cmdStr = "select count(*) from ZY_SYSCONSTANT where type_name= 'return_day_num'"
            Set rs = adoConnect.Execute(cmdStr)
            If rs.Fields(0).value = 0 Then
                'ADD
                adoCommand.CommandText = "sp_insert_ret_day"
                adoCommand.Parameters("@a") = "return_day_num"
                adoCommand.Parameters("@b") = "司机卡回收天数设置"
                adoCommand.Parameters("@c") = Text2(0).Text
                adoCommand.Parameters("@d") = ""
                adoCommand.Execute
                MsgBox "完成"
6.2.4发卡资料查询
Private Sub Cmd4_Click()
Unload Me
End Sub
--------------------编程问答-------------------- 找苦力的，围观中。。。

你应该绝对的新手吧，这个和语言没啥关系

补充：VB ,  基础类