SSDBGrid没有填充数据

Question

我正在运行一个select查询来填充记录集，我将它们设置为网格的数据源。

相关代码：

Dim dbLedger As Database

Set DB_Session = DBEngine.Workspaces(0)

Set dbLedger = DB_Session.OpenDatabase(DB_Period_Name$)

Dim SQL As String
SQL = "SELECT DISTINCT [Account_Code] , [Name] FROM [Ledger] ORDER BY [Account_Code] Asc"

Dim rs As DAO.Recordset
Set rs = dbLedger.OpenRecordset(SQL)

grdExport.DataSource = rs

但是，网格根本不显示行。该查询正在rs.recordcount返回1574。

我做错了吗？我没有在网格上设置任何属性，这是目前表单类中唯一的代码，因此不会被任何内容取消。

表格的屏幕截图如下：