具有Excel范围的SetVB6 ListBox Rowsource

Question

我正在尝试使用Excel范围设置VB6 Form ListBox。我意识到我可以使用范围的数组来设置列表，但是我想使用Rowsource，因为如果我将它作为Rowsource来执行它需要一些格式化。 ListBox中有6列。我收到运行时错误＆＃39; 380＆＃39;，无法设置RowSource属性。无效的财产价值。这是我的代码：

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

我在这里做错了什么。

感谢。