Dim str_eSQL As String = "Select Value B FROM Beleg as B"
 
            If str_eSQL > "" Then
                Dim DC As New mySQL_EF1(EFConnstr)
                Using DC
                Dim resultA As Objects.ObjectQuery(Of Beleg) = DG.CreateQuery( _
                  Of Beleg)(str_eSQL)
 
                    Debug.Print(resultA.ToTraceString)
 
                    For Each item In resultA
                        Debug.Print(item.ToString)
                    Next
 
                End Using