strQueryStart = "INSERT IGNORE INTO " & conf.destTable & "(lan_pro_id," & _
      "lan_text) "
    RS.MoveFirst
    Do
        'if text found, export record
        If (RS("LangTextNT") <> "") Then
            strBuffer = strBuffer & strQueryStart & _
                        "VALUES ('" & RS("ELTKONTORNummer") & "', " & _
                        "'" & RS("LangTextNT") & "');" & vbCrLf
            If userAbortion = True Then GoTo user_abortion
            exportCount = exportCount + 1
 
            'write out if buffersize is reached
            If exportCount = bufferSize Then
                Print #FNR, strBuffer
                'reset buffer and counter
                strBuffer = ""
                exportCount = 0
            End If
            DoEvents
        End If
        processCount = processCount + 1
        updateWaitScreen processCount, exportCount
        RS.MoveNext
        DoEvents
    Loop Until ((RS.EOF = True) Or (userAbortion = True))