Visual Basic.NET - Problemas con el ARRAY

Hola que tal miren tengo un problema con el array estoy cargando d eun data grid a una tabla de sql server pero no puedo por que no son iguales mis variables como le hago este es mi codigo

Dim cCve_prmotor, cCve_motivo, cEstatus, cOficio_Notificacion, cNumero_Identificacion_Notificacion As Char
Dim cRepresentante_Notificacion, cOficio_Resolucion, cNumero_Identificacion_Resolucion, cRepresentante_Resolucion As Char
Dim cResultado_SEPOMEX, cEstatus_a_Promotor, cNombre_Promotor, cUsuario_Estatus, cResultado As Char
Dim cUsuario_Estatus_a_Promotor, cUsuario_Notificacion, cUsuario_Resolucion As Char
Dim iId_Suspension, iCve_Identificacion_Notificacion, iCve_Identificacion_Resolucion, iAnterior As Integer
Dim fFecha_Registro, fFecha_Estatus, fFecha_Notificacion, fFecha_Resolucion, fFecha_Notif_SEPOMEX As Date
Dim fFecha_Inicio_Suspension, fFecha_Fin_Suspension, sFecha_Estatus_a_Promotor As Date
Dim i As Integer
Dim sNombre As String
Dim cNombre As Char
Dim iNombre As Integer
Dim fNombre As Date


Private Sub btnCargar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCargar.Click

If dt.Rows.Count > 0 Then

Dim SqlString As String = "" ' variable a la que asignaremos la sentencia
Dim ListSqlStrings As New ArrayList 'arregla donde ingresaremos las sentencias
'recorremos el datagrid como ya sabemos siempre se toma desde cero
For i As Integer = 0 To dt.Rows.Count - 1
'creamos la sentencia el row siempre tendra el valor de i para ir pasando de row en row
'el campo .cells(0) indica la columna que esta ese dato, tambien puede hacerlo con el nombre de la celda .cells("Nombre")
SqlString = "INSERT INTO Suspensiones_tmp(cve_promotor, id_suspension, fecha_registro, cve_motivo, estatus, "
SqlString = SqlString & " fecha_estatus, fecha_notificacion, oficio_notificacion, "
SqlString = SqlString & " cve_identificacion_notificacion, numero_identificacion_notificacion, "
SqlString = SqlString & " representante_notificacion, fecha_resolucion, oficio_resolucion, "
SqlString = SqlString & " cve_identificacion_resolucion, numero_identificacion_resolucion, "
SqlString = SqlString & " representante_resolucion, observaciones, fecha_notif_SEPOMEX, "
SqlString = SqlString & " resultado_SEPOMEX, estatus_a_promotor, nombre_promotor, "
SqlString = SqlString & " fecha_inicio_suspension, fecha_fin_suspension, anterior, "
SqlString = SqlString & " usuario_estatus, resultado, fecha_estatus_a_promotor, "
SqlString = SqlString & " usuario_estatus_a_promotor, usuario_notificaion, "
SqlString = SqlString & " usuario_resolucion ) "
SqlString = SqlString & " VALUES ('" & dt.Rows(i).ItemArray(0).ToString() & "','" & dt.Rows(i).ItemArray(1).ToString() & "','" & dt.Rows(i).Item(2).ToString() & "'"
SqlString = SqlString & " '" & dt.Rows(i).ItemArray(3).ToString() & "','" & dt.Rows(i).ItemArray(4).ToString() & "','" & dt.Rows(i).ItemArray(5).ToString() & "'"
SqlString = SqlString & " '" & dt.Rows(i).ItemArray(6).ToString() & "','" & dt.Rows(i).ItemArray(7).ToString() & "','" & dt.Rows(i).ItemArray(8).ToString() & "'"
SqlString = SqlString & " '" & dt.Rows(i).ItemArray(9).ToString() & "','" & dt.Rows(i).ItemArray(10).ToString() & "','" & dt.Rows(i).ItemArray(11).ToString() & "'"
SqlString = SqlString & " '" & dt.Rows(i).ItemArray(12).ToString() & "','" & dt.Rows(i).ItemArray(13).ToString() & "','" & dt.Rows(i).ItemArray(14).ToString() & "'"
SqlString = SqlString & " '" & dt.Rows(i).ItemArray(15).ToString() & "','" & dt.Rows(i).ItemArray(16).ToString() & "','" & dt.Rows(i).ItemArray(17).ToString() & "'"
SqlString = SqlString & " '" & dt.Rows(i).ItemArray(18).ToString() & "','" & dt.Rows(i).ItemArray(19).ToString() & "','" & dt.Rows(i).ItemArray(20).ToString() & "'"
SqlString = SqlString & " '" & dt.Rows(i).ItemArray(21).ToString() & "','" & dt.Rows(i).ItemArray(22).ToString() & "','" & dt.Rows(i).ItemArray(23).ToString() & "'"
SqlString = SqlString & " '" & dt.Rows(i).ItemArray(24).ToString() & "','" & dt.Rows(i).ItemArray(25).ToString() & "','" & dt.Rows(i).ItemArray(26).ToString() & "'"
SqlString = SqlString & " '" & dt.Rows(i).ItemArray(27).ToString() & "','" & dt.Rows(i).ItemArray(28).ToString() & "','" & dt.Rows(i).ItemArray(29).ToString() & "'"

'agregamos la sentencia a la lista
ListSqlStrings.Add(SqlString)
Next
If EjecutarTransaccion(ListSqlStrings) Then
MessageBox.Show("Info. guardada correctamente")
Close()
Else
MessageBox.Show("La Info. no se guardo")
End If
Else
MessageBox.Show("No hay informacion para guardar")
End If
End Sub

en si cual es el campo que te esta tronando. pudieras ir discriminando subiendo campo por campo a la tabla para llegar al campo que te esta dando problemas.

es el de la fecha como es tipo date y yo lo tengo en integer y no se como convertilo

ahora = now()
fecha = year(ahora) & "-" & month(ahora) & "-" & day(ahora)

claro que el guion o lo que pongas depende de tu manejador de base de datos.

lo que puedes hacer es ir a tu base de datos y ver como separa los dias del mes y asi tu haces tu tipo fecha como te muestro en el segundo renglon, asi mismo hay que ver si pone mes dia año o año mes dia etc etc, pero tu lo debes de acomodar a como te diga la base de datos,

Oye una pregunta mas sabes como puedo actualizar un datagrid o sea la infromacion que hay en el datagrid como la puedo actualizar?? o sea por ejemplo una celda es que hice este ejemplo

Dim i, rows As Integer
Dim colname As String
Dim value As Object
colname = InputBox("Digite el nombre de la columna que desea modificar")
rows = InputBox("Digite el Número de fila recuerde que empieza de 0")
value = InputBox("Escriba el Cambio que desea aplicar")
Try
DataSet1.Tables(0).Rows(rows).Item(colname) = value
i = sqlDataAdapter1.Update(DataSet1)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
MessageBox.Show("El número de actualizaciones es = " & i)

End Sub

y me dice que no hay nada en la tabla 0