主题：列表中增加一行空行

Tables("货品资料目录树设置").Cols("列名").AllowDirectType = False '单元格只能选择列表中的内容输入

Dim s As String '引用列名作为列表'
For Each dc As DataCol In DataTables("货品资料").DataCols
    s = s & "|" & dc.name
Next
Tables("货品资料目录树设置").Cols("列名").Combolist = s

希望在产生的列表中增加一行空行,请问如何设置?