Public Declare Function algEncodeBASE64 Lib "vbarchiv.dll" (ByRef sIn As _
    String, ByVal nGroups As Long, ByRef sOut As String) As Long 
  Public Declare Function algDecodeBASE64 Lib "vbarchiv.dll" (ByRef sIn As _
  String, ByRef sOut As String) As Long
 
  With oRs
  ...
                .AddNew
                Call algEncodeBASE64(sPicFileStream, 50, sFile)
               .Fields("FilmImage").Value = sFile
  ...
  End With

--

Geh' lieber durch die Wand, als immer durch die Tür.
Durchbreche den Verstand, dann findest Du zu Dir.