populating itemVendorList?

I'm trying to populate ItemVendorList for an InventoryItem.  But, I'm having issues with getting data into itemVendor.  Here's my code:

 'Create VendorList  Dim itemVendorList As NetsuiteService.com.netsuite.webservices.ItemVendorList = New NetsuiteService.com.netsuite.webservices.ItemVendorList  Dim itemVendor As NetsuiteService.com.netsuite.webservices.ItemVendor() = New NetsuiteService.com.netsuite.webservices.ItemVendor(1) {}    Dim itemVendorCount As Integer = 0    strSQL = "select SupplierName, IsNull(NetsuiteInternalID,0) as NetsuiteInternalID, SKU, Cost from itk_supplier, itk_supplier_product where itk_supplier.externalID = itk_supplier_product.supplierID and itk_supplier_product.partNumber = '" + PartNumber + "'"    lcmd.CommandText = strSQL    reader = lcmd.ExecuteReader()    If reader.HasRows Then          Do While reader.Read()               Dim vendor As NetsuiteService.com.netsuite.webservices.RecordRef = New NetsuiteService.com.netsuite.webservices.RecordRef                                     vendor.internalId = reader.Item("NetsuiteInternalID")               vendor.type = com.netsuite.webservices.RecordType.vendor               vendor.typeSpecified = True                 itemVendor(itemVendorCount).vendor = vendor               itemVendor(itemVendorCount).vendorCode = reader.Item("SKU")               itemVendor(itemVendorCount).purchasePrice = reader.Item("Cost")                  itemVendorCount = itemVendorCount + 1           Loop              Else                  'No Supplier Found - Add without Supplier                End