Dim x, y As Integer
 
        Dim depperl As New ArrayList()
        For x = 0 To customers.Rank - 1
            Dim s(customers.Rank) As String
 
            For y = 0 To customers.GetLength(0)
                s(y) = customers(x, y)
            Next
            depperl.Add(s)
        Next
 
        Me.GridView1.DataSource = depperl
        Me.GridView1.DataBind()