VB_Bulk_Insert

    Public Sub ImportarFichero(Optional bBorrar As Boolean = True, Optional FilaIni As Integer = 2)

        Try
            If bBorrar Then
                sSql = "TRUNCATE " & sTabla
                EjecutaSQL()
            End If

            sSql = "BULK INSERT [TEMP].[dbo].[A_tbODIN_Boletines] "
            sSql = sSql & "FROM " & "'" & sRutaFichero & sFichero & "' "
            sSql = sSql & "WITH (ROWTERMINATOR ='\n',FIRSTROW = " & FilaIni & ")"
            EjecutaSQL()
        Catch ex As Exception
            ssError = "ImportarFichero() : " & ex.Message
        End Try

    End Sub