Guardar txt delimitado en una base de datos

[ranchoteca]

Hola a todos
Mi problema es el siguiente:
Estoy guardando en una base de datos un archivo txt que tiene esta forma:

<Factura>
088767,5557,Bueno,contado
088764,6678,Malo,Credito

<cliente>
0889767,Max,Excelente,5
0778909,Jose,Full,6

----------------------------------------------------------------
Cada campo separado por comas corresponde a un campo que debo guardar
en la base de datos.
Este es el codigo que he hecho hasta el momento pero no sucede nada

Dim result As DialogResult = OpenFileDialog1.ShowDialog()
Dim rutas As String

If result = DialogResult.OK Then
rutas = OpenFileDialog1.FileName
lectura = My.Computer.FileSystem.ReadAllText(rutas)
End If
Dim datos As String() = lectura.Split(",")

dt = Ds.Tables("Facturas")
dt.Columns.Add("No Factura", Type.GetType("System.String"))
dt.Columns.Add("Codigo del Cliente", Type.GetType("System.String")) 'Asi todas las que necesitesluego hay que llenarla creas una nueva fila
dt.Columns.Add("Codigo del Articulo", Type.GetType("System.String"))
dt.Columns.Add("Descripcion", Type.GetType("System.String"))
dt.Columns.Add("Cantidad", Type.GetType("System.Integer")) 'Aqui me da problemas porque dice que es null
dt.Columns.Add("Precio_Venta", Type.GetType("System.Double"))
dt.Columns.Add("Impuesto", Type.GetType("System.Double"))
dt.Columns.Add("Subtotal sin Imp", Type.GetType("System.Double)"))
dt.Columns.Add("Subtotal_con_Imp", Type.GetType("System.Double)"))

Dim current As DataRow = dt.NewRow()
current("No Factura") = datos(0)
current("Codigo del Cliente") = datos(1)
current("Codigo del Articulo") = datos(2)
current("Descripcion") = datos(4)
current("Cantidad") = datos(5)
current("Precio_Venta") = datos(6)
current("Impuesto") = datos(7)
current("Subtotal sin Imp") = datos(8)
current("Subtotal_con_Imp") = datos(9)
dt.Rows.Add(current)

Da.Update(dt)
dt.AcceptChanges()

Agradeceria su ayuda