Inserción de datos de una lista en la tabla: .net, sql-server, vb.net

Estoy tratando de recorrer una lista e insertarla en una base de datos.

Dim fields() As String
Using cnn As SqlConnection = New SqlConnection(conn)
cnn.Open()
Using insertTrans As SqlTransaction = cnn.BeginTransaction
Using cmd As SqlCommand = cnn.CreateCommand()
"create command
cmd.CommandText = "INSERT INTO [matrixtest].[dbo].[SM_Fatca_GinList] " _
& "(gincode, ginname, country) VALUES (@gin, @name, @country)"
Dim gin As SqlParameter = New SqlParameter("@gin", SqlDbType.VarChar)
Dim companyName As SqlParameter = New SqlParameter("@name", SqlDbType.VarChar)
Dim country As SqlParameter = New SqlParameter("@country", SqlDbType.VarChar)
cmd.Parameters.Add(gin)
cmd.Parameters.Add(companyName)
cmd.Parameters.Add(country)
"skip 1st row
Dim firstRow As Boolean = True
For Each item As String In lines
If Not firstRow Then
fields = item.Split("__||__")
If Not String.IsNullOrEmpty(fields(0)) Then
If Not fields(0).Length = 0 Then
"set parameters
gin.Value = fields(0)
companyName.Value = fields(1)
country.Value = fields(2)
cmd.Transaction = insertTrans
cmd.ExecuteNonQuery()
End If
End If
End If
firstRow = False
Next
End Using
End Using
End Using

Pero mi código continúa ejecutándose para siempre y al revisar SSMS las tablas no se están llenando con ningún dato. ¿Qué estoy haciendo mal?

EDIT: Objeto de comando:

Respuestas

No está comprometiendo su transacción, por lo que tendrá que agregar:

insertTrans.Commit()

Lo mejor es hacerlo en un Try..Catch para que puedas llamar insertTrans.Rollback(), si es necesario.