'assumes you have filename  in a string
Dim filebits() as String = filename.Split("."c)

Dim id as string = filebits(1)

'assumes you have filepath in a string
Dim fileLines() as String = File.ReadAllLines(filepath)

Dim linebits() as String = fileLines(0).Split("$"c)

Dim fileDate = Date.ParseExact(linebits(1), "yyyymmdd", CultureInfo.CurrentCulture)

linebits(0) = Nothing


Dim dt as New MyDataSet.TempTable
dt.IDColumn.DefaultValue = id
dt.TheDateColumn.DefaultValue = fileDate

ForEach line as String in fileLines

  If line = nothing Then Continue

  Dim ro as MyDataSet.TempRow = dt.NewTempRow()

  ro.Data1Whatever = 'whatever bit of the line
  ro.Data2Whatever = 'whatever part of the line

Next


'upload to the DB
Dim myTA as New MyDataSetTableAdapters.TempTableAdapter
myTA.Update(dt)