Public Class cSMB
    Public Shared Function obj2DS(obj As Object, ByVal ds As DataSet, tablename As String)



        ds.Tables.Add(New DataTable(tablename))
            With ds.Tables(0)
                .Columns.Add("S_ID", Type.GetType("System.String"))
                .Columns.Add("Computer", Type.GetType("System.String"))
                .Columns.Add("Datei", Type.GetType("System.String"))
                .Columns.Add("User", Type.GetType("System.String"))
            End With





        For Each line In obj
            Dim rowData As String() = line.Split(New Char() {";"c})
            ds.Tables(0).Rows.Add(rowData(0), rowData(1), rowData(2), rowData(3))
        Next

        '   MsgBox("")

    End Function
End Class