mandar varos parametros a store

 Try
            Using cnx As New SqlConnection(ConfigurationManager.ConnectionStrings("default").ToString())
                cnx.Open()
                Using cmd As New SqlCommand("spGTU_RD_inserta_acta_control", cnx)
                    cmd.CommandType = CommandType.StoredProcedure
                    With cmd.Parameters
                        For i As Integer = 0 To dt.Rows.Count
                            For j As Integer = 0 To dt.Columns.Count - 1
                                'dt.Rows(i)(j).ToString()
                                MessageBox.Show(dt.Rows(i)(j).ToString())
                                .AddWithValue("@codigo", Convert.ToString(dt.Rows(i)(j)))
                                .AddWithValue("@dni", Convert.ToString(dt.Rows(i)(j)))
                                .AddWithValue("@licencia", Convert.ToString(dt.Rows(i)(j)))
                                .AddWithValue("@cod_infraccion", Convert.ToString(dt.Rows(i)(j)))
                                .AddWithValue("@placa", Convert.ToString(dt.Rows(i)(j)))
                                .AddWithValue("@fecha_infraccion", Convert.ToString(dt.Rows(i)(j)))
                                .AddWithValue("@cod_distrito", Convert.ToString(dt.Rows(i)(j)))
                                .AddWithValue("@tip_intervenido", Convert.ToString(dt.Rows(i)(j)))
                                .AddWithValue("@categoria", Convert.ToString(dt.Rows(i)(j)))
                                .AddWithValue("@hora_infraccion ", Convert.ToString(dt.Rows(i)(j)))
                                .AddWithValue("@lug_infraccion", Convert.ToString(dt.Rows(i)(j)))
                                .AddWithValue("@dist_infraccion", Convert.ToString(dt.Rows(i)(j)))
                                .AddWithValue("@nom_intervenido", Convert.ToString(dt.Rows(i)(j)))
                                .AddWithValue("@tip_doc_intervenido", Convert.ToString(dt.Rows(i)(j)))
                                .AddWithValue("@nro_doc_intervenido", Convert.ToString(dt.Rows(i)(j)))
                                .AddWithValue("@dire_intervenido ", Convert.ToString(dt.Rows(i)(j)))
                                .AddWithValue("@dist_intervenido", Convert.ToString(dt.Rows(i)(j)))
                                .AddWithValue("@empresa_autorizada", Convert.ToString(dt.Rows(i)(j)))
                                .AddWithValue("@cod_ruta", Convert.ToString(dt.Rows(i)(j)))
                                .AddWithValue("@nom_inspector", Convert.ToString(dt.Rows(i)(j)))
                                .AddWithValue("@cod_inspector ", Convert.ToString(dt.Rows(i)(j)))
                                .AddWithValue("@obser_intervenido", Convert.ToString(dt.Rows(i)(j)))
                                .AddWithValue("@obs_inspector", Convert.ToString(dt.Rows(i)(j)))
                                .AddWithValue("@cod_constancia ", Convert.ToString(dt.Rows(i)(j)))
                                If validarData(dt.Rows(i)(j)) Then
                                    .AddWithValue("@estado ", Convert.ToString(1))
                                    cmd.ExecuteNonQuery()
                                Else
                                    .AddWithValue("@estado ", Convert.ToString(0))
                                    cmd.ExecuteNonQuery()
                                End If
                                cmd.Parameters.Clear()
                            Next
                        Next
                    End With
                End Using
            End Using
        Catch ex As Exception
        Finally
        End Try