Here is my code from the project I am doing now. You need to make some changes
for the columns.
Dim rs As Recordset
Dim GridRow as Integer
Dim Count As Integer
'Make sure the query returned at least one record
If rs.RecordCount > 0 Then
'Get a count of records in the recordset and display it on the form.
Count = rs.RecordCount
lblCount.Caption = Count
'Initialize the grid
.Row = Count + 1
.Row = 0:
.Col = 0: .Text = "Order ID"
.Col = 1: .Text = "Order Date"
.Col = 2: .Text = "Required Date"
.Col = 3: .Text = "Shipped Date"
'Populate the grid
For GridRow = 1 To Count
.Row = GridRow
.Col = 0: .Text = rs![OrderID]
.Col = 1: .Text = rs![OrderDate]
.Col = 2: .Text = rs![RequiredDate]
.Col = 3: .Text = rs![ShippedDate]