'================================================================
' Формирование строки пригодной для загрузки в базу данных
' т.е. замена ковычек на двойные, замена прямого слеш на двойной
Public Function strPrep(ByVal s As String) As String
        Dim nPos
        Dim sPos
        sPos =  1 
        Do While True
           nPos = InStr(sPos, s, "\")
           If nPos =  0  Then
              s = LTrim(s)
              Exit Do
           Else
              s = Mid(s,  1 , nPos) & "\" & Mid(s, nPos +  1 )
              sPos = nPos +  2 
           End If
        Loop
        sPos =  1 
        Do While True
           nPos = InStr(sPos, s, "'")
           If nPos =  0  Then
              s = LTrim(s)
              Exit Do
           Else
              s = Mid(s,  1 , nPos) & "'" & Mid(s, nPos +  1 )
              sPos = nPos +  2 
           End If
        Loop
        strPrep = s
End Function