Create a dataset from a Queue Collection (Resolved)

[FastEddie]

Is it possible to take these Queue items and put them back into a (new) dataset?

Private Function GetCustomerInfo() As DataSet
        Dim Stores As String() = { _
            CStr(1128), _
            CStr(1129)}
 
        Dim rendomCustQueue As New Queue
        Dim CustomerPicker As New Random
        Dim myrows As DataRow()
        Dim value As Integer
 
        For Each storeNum As String In Stores
            myrows = GetRandomCustomers.Tables(0).Select("LastStore = '" & storeNum & "'")
            If myrows.Length > 0 Then
                value = CustomerPicker.Next(0, myrows.Length)[b]
                rendomCustQueue.Enqueue(myrows(value).Item("FullName").ToString)
                rendomCustQueue.Enqueue(myrows(value).Item("Address").ToString)
                rendomCustQueue.Enqueue(myrows(value).Item("City").ToString)
                rendomCustQueue.Enqueue(myrows(value).Item("State").ToString)
                rendomCustQueue.Enqueue(myrows(value).Item("Zip").ToString)
                rendomCustQueue.Enqueue(myrows(value).Item("LastStore").ToString)[/b]
            End If
            Dim en As System.Collections.IEnumerator = rendomCustQueue.GetEnumerator()
 
            While en.MoveNext()
                ' Create and Return Dataset here???
            End While
        Next
    End Function

I tried this but it didn't work.

Dim ds As New DataSet
                Dim dt As New DataTable
 
                Dim FullName As DataColumn
                Dim Address As DataColumn
                Dim City As DataColumn
                Dim State As DataColumn
                Dim Zip As DataColumn
                Dim Store As DataColumn
 
                FullName = (rendomCustQueue.Enqueue(myrows(value).Item("FullName").ToString))
etc....