保存表格数据到SQL SERVER 数据库中（编码保存）

'************************************   LMS 2017.10  ( SaveVSFGrid_ByBm )  ************************************
'*     3、保存VSFGrid数据(没有Ywdh，fsrq,fl_id)：以第一列(第一列必须是编码字段，且为字符串型)为主键值（是字符串型），表里面没有有 Ywdh，fl_id，fsrq字段（例如：物料编码表）
'*     gridcol_fieldlx=0，该字段在表中不存在或者是uniqueidentifier型（数据库字段得到值），不需要保存                      )
'*     参数：Table_Name：要保存的表；Grid_Code：对应在Xt_Grid表中的代码 （要保存表的字段和VSFGrid相对应的列）；Bm_FieldName=编码字段作为主键值
'************************************   LMS 2017.10  ( SaveVSFGrid_ByYwdh )  ************************************
Public Sub SaveVSFGrid_ByBm(VSFGrid As VSFlexGrid, Table_Name As String, Bm_FieldName As String, Grid_Code As String)
    With VSFGrid
       If .Rows = .FixedRows Then Exit Sub
       Dim rst As New ADODB.RecordSet, SQL