Ciclo su datatable troppo lungo

[zampa28]

                With DS.Tables("TblResult")
                    For Each c As DataColumn In .Columns
                        StrRecordset &= c.ColumnName
                        If c.Ordinal < .Columns.Count - 1 Then
                            StrRecordset &= vbTab
                        End If
                    Next
                    StrRecordset &= "{NL}"
                    For Each r As DataRow In .Rows
                        For Each c As DataColumn In .Columns
                            StrRecordset &= r(c)
                            If c.Ordinal < .Columns.Count - 1 Then
                                StrRecordset &= vbTab
                            End If
                        Next
                        StrRecordset &= "{NL}"
                    Next
                End With

questo ciclo (contenuto in un webservice), fatto su di un datatable con 1000 righe e 20 colonne ci impiega all'inirca 4 minuti...

c'è secondo voi un modo per velocizzare il tutto?