How to use VBA in Ms Access to input multi combo box rows & columns

I’m now almost finishing my task and everything appear to work very well except one last bit which I thought was the easiest to do, here is a puzzle:

After creating a combo box in ms access with the below query and the VBA to populate the selected columns from the mentioned combo box all is well no issue see below:
Combo Box query

SELECT tblPurchasesDetailslines.PurchaseOrderID, tblPurchasesDetailslines.PurchaseID, tblProducts.ProductID, tblProducts.ProductName, tblPurchasesDetailslines.Quantity, tblPurchasesDetailslines.CostValue, tblPurchasesHeader.StatusStore
FROM (tblPurchasesDetailslines INNER JOIN tblProducts ON tblPurchasesDetailslines.ProductID = tblProducts.ProductID) INNER JOIN tblPurchasesHeader ON tblPurchasesDetailslines.PurchaseID = tblPurchasesHeader.PurchaseID
WHERE (((tblPurchasesDetailslines.PurchaseID)=[Forms]![frmGrn]![CboOrder]) AND ((tblPurchasesHeader.StatusStore) Is Null Or (tblPurchasesHeader.StatusStore)<>"2"));

Select allOpen in new window

VBA (used to input now the selected combo box columns)

Private Sub CboProducts_AfterUpdate()
Me.PurchasesID = Forms!frmGrn!txtGrnsCosting
Me.ProductID = Me.CboProducts.Column(2)
Me.Qty = Me.CboProducts.Column(4)
Me.Cost = Me.CboProducts.Column(5)
Me.GrnStockAccName = "Stock"
Me.GrnStockAcc = "114-10-1000"
Me.SuspenseName = "GRN Suspense"
Me.SuspenseAcc = "121-12-1000"
Me.BSIDSTOCK = "2"
Me.BSIDSuspense = "3"
DoCmd.GoToRecord , , acNewRec
Me.Refresh
End Sub

Select allOpen in new window

All what I want is to simply capture/input all the rows & columns as per filter combo box instead of just one line. Whatever rows is in the filtered combo box
For example if the filtered combo box is showing 5 rows then all the rows must captured at once using the VBA above