Script for inserting binary file data into a db

Sub Main()
   ' this script saves the saved attachment filenames in the Attachment table
    ' we have added a reference to the Microsoft ActiveX Data Objects (ADO).
    ' it assumes you already have a table called 'Attachments' in the database.
    If MSG_AttachmentCount=0 Then Exit Sub ' if no attachments do nothing
    Dim DBConnection As New ADODB.Connection
    Dim Attachments As New ADODB.Recordset
    Dim myStream As ADODB.Stream
    Dim A As Integer
    On Error GoTo erl
    DBConnection.ConnectionString=SQL_Connection ' use the connection string specified on the Database tab
    DBConnection.Open
    ' open the Attachments table
    Attachments.Open "Attachments",DBConnection,adOpenDynamic,adLockOptimistic
    For A=1 To MSG_AttachmentCount
        If len(msg_attachment(A)) > 0
          AddToLog("Processing: " & MSG_Attachment(A))
          Attachments.AddNew
          Attachments.Fields("UID")=MSG_UID
          Attachments.Fields("AttachmentNumber")=A
          Attachments.Fields("AttachmentName")=MSG_Attachment(A)
          Set myStream = New ADODB.Stream
          AddToLog("File is type: " & MSG_AttachmentType(A))
          myStream.Type = adTypeBinary
          AddToLog("Opening temp file: " & MSG_AttachmentTempLocation(A))
          myStream.Open
          myStream.LoadFromFile(MSG_AttachmentTempLocation(A))
          Attachments.Fields("AttachmentData")=myStream.Read
          Attachments.Fields("AttachmentSize")=myStream.Size
          myStream.Close
          Attachments.Fields("AttachmentType")=MSG_AttachmentType(A)
          Attachments.Update
      End If
    Next A
    Attachments.Close
    DBConnection.Close
    Call AddToLog("Attachment table updated successfully")
    Exit Sub
erl:
    Call AddToLog("Error in script: " & Err.Description)
End Sub