Read and write SQL image data, store binary file to sql table. 

Function GetSQLConn()
  Const MDBFile = "F:\work\Basic\testy.bas\binarywork\binarywork.mdb"
  'Create Connection object
  Dim GlobalADOConn
  Set GlobalADOConn = CreateObject("ADODB.Connection")
  
  'Open OLEDB connection To MDB/Jet engine
  GlobalADOConn.Provider = "Microsoft.Jet.OLEDB.4.0"
  GlobalADOConn.Open "Data Source=" & MDBFile
  Set GetSQLConn = GlobalADOConn
End Function

Function CreateTableWithBinary()
  Dim SQL, Conn
  'SQL statement with 'Create Table' command
  'the table has three columns - primary ID
  ' one text And one binary column
  SQL = "Create Table WebData ("
  SQL = SQL & "ID int identity primary key Not null,"
  SQL = SQL & "Description char(100),"
  SQL = SQL & "BinaryColumn image"
  SQL = SQL & ")"
  
  'Get connection To database
  Set Conn = GetSQLConn()
  
  'Create the table
  Conn.Execute SQL
End Function

Function AddBinaryDataRow(BinaryData, Description)
  Const adCmdText = 1
  Const adOpenDynamic = 2
  Const adLockOptimistic = 3
  Const adOpenKeyset = 1
  
  Dim SQL, Conn, RS As ADODB.Recordset
  'Create SQL command To retrieve data
  SQL = "Select ID, Description, BinaryColumn from WebData Where 1=0"
  
  'Get connection To SQL database
  Set Conn = GetSQLConn()
  Set RS = CreateObject("ADODB.Recordset")
  RS.Open SQL, Conn, adOpenKeyset, adLockOptimistic, adCmdText
  
  'AddNew - new row To the recordset
  RS.AddNew
  
  'Set source BinaryData To BinaryColumn
  RS("BinaryColumn") = BinaryData
  RS("Description") = Description
  
  'Use this code instead of previous line For ORACLE.
  'RS("BinaryColumn").AppendChunk BinaryData
  'Store data To database
  RS.Update

  'Or using one-row AddNew only - instead of AddNew + Update
  'RS.AddNew Array("BinaryColumn", "Description"), _
  '   Array(BinaryData, Description)
  
  'Get an ID of currently added row.
  AddBinaryDataRow = RS("ID")
End Function

'store some binary files In a database
AddBinaryDataRow ReadBinaryFile("f:\logo.gif"), "Company logo"
AddBinaryDataRow ReadBinaryFile("f:\next.gif"), "Next page"

'store result of an upload form To the database
If Form.State = 0 Then
  AddBinaryDataRow _
    Form("File1").ByteArray, _
    Form("Description").String
End If

Function GetImageData(ID)
  Dim SQL, Conn, RS
  'Create SQL command To retrieve data
  SQL = "Select BinaryColumn from WebData"
  SQL = SQL & " Where ID=" & ID
  
  'Get connection To SQL database
  Set Conn = GetSQLConn()
  Set RS = Conn.Execute(SQL)
  
  'GET binary data from recordset
  GetImageData = RS("BinaryColumn")
  
  'Use this code instead of previous line For ORACLE.
'  GetImageData = RS("BinaryColumn").GetChunk( _
'      RS("BinaryColumn").ActualSize)
End Function


'send image To the client from ASP
Dim ID
ID = Request.QueryString("ID")
If IsNumeric(ID) Then
  Response.BinaryWrite GetImageData(ID)
End If

'write image data To a disk
SaveBinaryData "C:\inetpub\root7\next.gif", GetImageData(2)

Insert Into Tablename
 (BinaryColumn, OtherColumns)
Values
 (0xAB1FCD...., "some other data")