Pasted

    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