Option Explicit

Dim ProductId

Sub AXFormOpen(Sender)

   Call LoadProducts()

End Sub

Sub LoadProducts

   Dim arrayPosition 
   Dim productCount
 
   arrayPosition = 0
   productCount = 0

   '** 
   With .Recordset
      If .BOF = False and .EOF = False Then
         While .EOF = False
            cboProduct.Items.Add .Fields("PRODUCT") & ""
            productCount = productCount + 1
            .MoveNext()
         Wend
      End If

      .MoveFirst()

      '** There is no Dim statment anywhere-only this ReDim
      '** A completely dynamically sized array
      ReDim tProductId(productCount-1, 1)

      For arrayPosition = 0 To productCount-1
         tProductId(arrayPosition, 0) = .Fields("PRODUCTID") & ""
         tProductId(arrayPosition, 1) = .Fields("CODE") & ""
         .MoveNext()
      Next
      .Close()
   End With

   ProductId = tProductId '** Assign back to module level variable for use by other code (i.e., cboProductChange

End Sub

Sub cboProductChange(Sender)
   Msgbox "code: " & ProductId(cboProduct.ItemIndex, 0) & vbcrlf & "id: " & ProductId(cboProduct.ItemIndex, 1)
End Sub