trasportare dati da un file di testo a un db

[Pinotto]

Devo interpretare un file di testo ed importarlo in un db...

sub Page_Load(obj as object, e as eventargs)
   dim objreader as new Streamreader(Server.MapPath("testo.txt"))
   
   while objreader.peek()>-1
      dim i as integer
      dim arrtesto1(20) as char
      objreader.read(arrtesto1, 0, 20)

      Dim conn As New MySqlConnection("User=root; pwd=mypass; Host=localhost; Port=3306; Database=db1")
      dim strSQL as string = "INSERT INTO tbl1 (sigla1) VALUES ('"& arrtesto1 &"')
      Dim adapter As New MySqlDataAdapter(strSQL, conn)
      dim objCmd as new mysqlCommand(strSQL, Conn)
      try
         objCmd.Connection.Open()
         objCmd.ExecuteNonQuery()
      catch ex as Exception
         lblMessage.Text = "Errore nell'update del database"
      end try
    
      objCmd.Connection.Close()
    
      objreader.readline
   end while
end sub

ma non funziona...
se metto l'indice all'array (arrtesto1) mi scrive del db solo il carattere dell'indice (es. arrtesto1(0) mi scrive il primo carattere di ogni riga del file di testo nel db)...io vorrei che mi scrivesse i primi 20 caratteri....ty