У меня еще вот это

'================================================================
' Формирование строки пригодной для загрузки в базу данных
' т.е. замена ковычек на двойные, замена прямого слеш на двойной
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