小弟我的原码，自认为不错，大家分享，多提意见。哪位高手的意见最刻薄，分最高。（当然是技术角度提意见）

我的原码，自认为不错，大家分享，多提意见。谁的意见最刻薄，分最高。（当然是技术角度提意见）
'------------------------------------------------
'函数名：RsFillFlex2
'功能：用记录集填充表格
'创建日期：2007-8-22
'更新日期：2007-8-22
'注意：从第1列开始填充数据,第0列自动生成一个序号列
'由于多出一个序号列，所以表格的列数比记录集的字段数多1
'---------------------------
Public   Function   RsFillFlex2(strcaption   As   String,   _
                                                        grd   As   MSFlexGrid,   _
                                                        rs   As   adodb.Recordset,   _
                                                        Optional   alignFlag   As   Integer   =   0,   _
                                                        Optional   showZeroFlag   As   Integer   =   0,   _
                                                        Optional   Rows_Fixed   As   Integer   =   1,   _
                                                        Optional   TableHead   As   Integer   =   1)   As   Boolean
        '本函数特别要求，对于含的小数点的数值型数据，要根据数据表中的结构显示小数点个数
        '功能：将记录添充到表格中
        '参数一：表头格式
        '参数二：表格控件名称
        '参数三：记录集
        '参数四：表示是否指定 "列对齐方式 "，为1根据记录集的字段类型来设置，为0根据表格的formatstring设置
        '参数五：是否显示数字0,为0不显示，为1要显示
        '参数六：固定行数，默认为1
        '参数七：表头所占的行数，默认为1   (该参数有何意义？)
        '好象记录集必须是客户端游标才行，服务器端游标记录数不好取

        Dim   i   As   Long,   j   As   Long,   strField   As   String                           'strField用于存放字段内容
        Dim   vnttmp   As   Variant                                                               '临时存放每个单元格内容[要能存放各种类型数据，故为variant型]
        Dim   rsCols   As   Long                                                                     '记录集的字段数
        Dim   grdCols   As   Long                                                                   '表格的列数