vb 关于datagrid控件的问题

我写了这段代码Dim db As Connection
Dim adoPrimaryRS As Recordset
Private Sub Form_Load()
 
  Set db = New ADODB.Connection
        db.Provider = "Microsoft.Jet.OLEDB.4.0"
    Dim dbFile As String
        dbFile = "Data Source=" & App.Path & "\库存管理.mdb;"
    db.Open dbFile
  Set adoPrimaryRS = New Recordset
    adoPrimaryRS.Open "select *" _
& " from 出入库单据,出入库分录,供应商,物料 where 出入库单据.编号=出入库分录.编号 " _
& "  and 出入库单据.供应商代码= 供应商.代码 " _
& "  and 出入库分录.物料编码=物料.代码 order by 出入库单据.编号", db, adOpenStatic, adLockOptimistic
  Set grdDataGrid.DataSource = adoPrimaryRSEnd Sub结果datagrid控件中什么也没显示，查询过在adoprimaryrs中存在数据
各位大侠帮帮忙我实在是想不到是哪出错了