ho risolto in parte ho commentato una riga e pare che importi tutto, adesso ho un'altro errore

Indice oltre i limiti della matrice

Dim i As Long = 0
Dim sr As StreamReader = New StreamReader("C:\Fornitori2.txt")
While Not sr.EndOfStream
Dim line1 As String = sr.ReadLine()
Dim line As String = line1.Replace("'", "''")
Dim dbConn As SqlConnection = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=" & pAssoluto & "\App_Data\Database.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
Dim dbCmd As SqlCommand = New SqlCommand()
dbCmd.Connection = dbConn
'Dim wholeFile As String = sr.ReadToEnd()
Dim fields() As String = line.Split(";")
dbCmd.CommandText = "INSERT INTO Clienti(id, nomeF, email, valutazione, descrizione, cell, fax, tel, stato, dataStato, ggS, mmS, yyyyS, localita, responsabile, web, area)VALUES('" & fields(0) & "','" & fields(1) & "', '" & fields(2) & "', '" & fields(3) & "', '" & fields(4) & "', '" & fields(5) & "', '" & fields(6) & "', '" & fields(7) & "', '" & fields(8) & "', '" & fields(9) & "', '" & fields(10) & "', '" & fields(11) & "', '" & fields(12) & "', '" & fields(13) & "', '" & fields(14) & "', '" & fields(15) & "', '" & fields(16) & "' )"
dbConn.Open()
dbCmd.ExecuteNonQuery()
i = i + 1
line = sr.ReadLine()
dbConn.Close()
End While