Sir,
Move the error line out of the loop it will work..
For c As Integer = 0 To 7
Dim col As New Data.DataColumn
col.ColumnName = xlws.Cells(14, c + 1).Value.ToString
Tblsheet.Columns.Add(col)
ds.Tables.Add(Tblsheet)
Next
Change To
For c As Integer = 0 To 7
Dim col As New Data.DataColumn
col.ColumnName = xlws.Cells(14, c + 1).Value.ToString
Tblsheet.Columns.Add(col)
Next
ds.Tables.Add(Tblsheet)