Public Interface IClienti
        Function GetClienti() As ICliente()
    End Interface
    
    Public Function GetClienti() As ICliente() Implements IClienti.GetClienti
        Me.Adapter.SelectCommand = Me.SelectCommand
        Dim Table As  ClientiDB = New ClientiDB
        Me.Adapter.Fill(Table)
        Return CType(New ArrayList(Table.Rows).ToArray(GetType(ClientiDB.ClienteDB)), ClientiDB.ClienteDB())
    End Function