'Add competitors to the database
Dim lstTemp As List
Dim StringDeltag As StringUtils
lstTemp = StringDeltag.LoadCSV(strDir, strFile, ",")
Dim Field() As String
Field = lstTemp.Get(0)
For i = 1 To lstTemp.Size - 1
Dim Rad() As String
Rad = lstTemp.Get(i)
DB.AddNew(DB.TabDeltagIndex)
DB.SetField2(DB.TabDeltagIndex, Field(0), Rad(0))
DB.SetField2(DB.TabDeltagIndex, Field(1), Rad(1))
DB.SetField2(DB.TabDeltagIndex, Field(2), Rad(2))
DB.SetField2(DB.TabDeltagIndex, Field(3), Rad(3))
DB.SetField2(DB.TabDeltagIndex, Field(4), Rad(4))
DB.Update(DB.TabDeltagIndex)
Next