filename =  "D:\files.rar" 
    ChunkMaxSize =  200000 
    Myfilelen = FileLen(filename)
    Set cm.ActiveConnection = cn
    cm.CommandType = adCmdStoredProc
    cm.CommandText =  "exec_extended"     
    prm.Direction = adParamInput
    prm.Type = adVarChar
   
  
    myfile = FreeFile
    Open filename For Binary As #myfile
    CurPos =  0 
    Do
        ChunkSize = Mymin(ChunkMaxSize, Myfilelen - CurPos)
        z1 = Input(ChunkSize, #myfile)
        prm.AppendChunk z1
        CurPos = CurPos + ChunkSize
    Loop While CurPos < Myfilelen
    prm.Size = Myfilelen
    cm.Parameters.Append prm
    cm.Execute