Public Class Mitarbeiter
    Inherits ObjectBase

Public Function getAll_Mab() As Mitarbeiter()
        Try
            Dim OB As ObjectBase() = Me.getAll_Entities(GetType(Mitarbeiter))
            For Each obj As ObjectBase In OB
                MsgBox(DirectCast(obj, Mitarbeiter).Login)  '/// funktioniert
            Next
 
            Dim mab As Mitarbeiter()
            mab = CType(OB, Mitarbeiter())           '/// funktioniert nicht  
            ' ???
            mab = DirectCast(OB, Mitarbeiter())   '/// funktioniert nicht  ???
 
            Return mab
        Catch ex As Exception
            MsgBox(ex.ToString)
            Return Nothing
        End Try
 
    End Function

Micke