By the filename i meant store that AS well, it just looks better.

Now retrieving data out is in my thread about Storing Any File Type In A Database

For Word Docs what i'd do is use the shell execute function

VB Code:
  1. Option Explicit
  2. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
  3. Private Const SW_MAXIMIZE = 3
  4.  
  5.  Private Sub cmdGet_Click()
  6.  
  7.             'check for temporary file if it's found delete it
  8.             temp = App.Path & "\" & txtfilename.Text 'txtfilename holds the files name
  9.             If Len(Dir(temp)) > 0 Then
  10.                 Kill temp
  11.             End If
  12.  
  13.             'Open temp file
  14.             file = FreeFile
  15.             Open temp For Binary As #file
  16.  
  17.             'Read temp file as binary into chunk
  18.             'this is the engine room
  19.             ImgeSze = rs("FILE").ActualSize
  20.             Do While offset < ImgeSze
  21.                chunk() = rs("FILE").GetChunk(ChunkSize)
  22.                Put #file, , chunk()
  23.                offset = offset + ChunkSize
  24.             Loop
  25.  
  26.             Close #file
  27.  
  28. ShellExecute Me.hwnd, vbNullString, temp ,vbNullString, vbNullString, SW_MAXIMIZE
  29.  
  30. 'this is to load it's path name into the text box
  31. End Sub