SetVB6列表框Rowsource与Excel范围

我正在尝试设置Excel范围的VB6表单列表框。 我意识到我可以使用范围数组设置列表，但我想使用Rowsource，因为它需要一些格式，如果我做它作为Rowsource。 列表框中有6列。 我得到运行时错误'380'，无法设置行来源属性。 无效的财产价值。 这是我的代码：

lastRow = wb.Sheets("Journal").Range("D20000").End(xlUp).Row lstJrnl.RowSource = wb.Sheets("Journal").Range("D4:I" & lastRow).Address 

我在这里做错了什么。

谢谢。