original article: http://www.vbforums.com/sho... Public Function Convert(ByVal mFile As String, ByVal mTablename As String, ByVal delimiter As String) As DataSet ' The dataset to return Dim ds As New DataSet ' Open the file with a stream reader Dim sr As New StreamReader(mFile) ' Split the first line into the fields and add to string array called columns Dim columns As String() = sr.ReadLine().Split(delimit... ' Add the new Datatable to the DataSet ds.Tables.Add(mTablename)...