copy an array of record data into unbound dbgrid

[zoiz]

i want to call the unboundadddata event once the dbcombo is selected, i write the following code:

Private Sub DBCombo1_Click(Area As Integer)
Dim db As Database
Dim rst As Recordset
Dim row As Integer
Dim irow As Integer

ReDim Recomm(0 To 2, 0 To 2)

lblItemDesc.Caption = DBCombo1.BoundText

Set db = OpenDatabase("C:\WINDOWS\DESKTOP\adcs\PJ.mdb")
Set rst = db.OpenRecordset("Select [Vendor].[Vendor ID], [Vendor Name], [Vendor Discount] from [Vendor] INNER JOIN [VDetails] ON [VDetails].[Vendor ID] = [Vendor].[Vendor ID] where (([VDetails].[Item ID] = '" & DBCombo1.Text & "') and ([Vendor].[Vendor Discount] between 0.1 and 0.2))", dbOpenDynaset)
If rst.RecordCount 0 Then
Do While row < rst.RecordCount
Recomm(0, row) = rst![Vendor ID]
Recomm(1, row) = rst![Vendor Name]
Recomm(2, row) = rst![Vendor Discount]
row = row + 1
rst.MoveNext
Loop

the problem is when this code completed and all the record data are stored in Recomm Array, i cannot call the unbound event to add these data in the array into the dbgrid (unbound).

can someone please help :< ??