For Downloding... 'Declare on Gen.DECLARATION 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 'This line is also declared on Declaration with both,uploading and downloading Dim strStream As ADODB.Stream Dim RstRpt As New ADODB.Recordset Set RstRpt = ModFncRecordSetReturnRst("Select FILECONTENT from DMSDOCCONTENTTRN" _ & " Where DOCUMENTCODE ='" & txtcode.text & "'") If RstRpt.RecordCount > 0 Then Set strStream = New ADODB.Stream strStream.Type = adTypeBinary strStream.Open strStream.Write RstRpt.Fields("FILECONTENT").Value DestinationFile = "C:\" & txtcode.text strStream.SaveToFile (DestinationFile), adSaveCreateOverWrite 'FileCopy SourceFile, DestinationFile SetAttr DestinationFile, vbNormal Call ShellExecute(hwnd, "Open", DestinationFile, "", "C:\", 1) 'it will save it in C:\ and Open it from the C:\ Path 'In case of Any Trouble Ask me. Take Care. Bye. Regards; Ali