怎么可以把服务文件读取成二进制，并存到数据库里？

Function Read_File(Url)
     Set StreamObj = Server.CreateObject("ADODB.Stream")
     StreamObj.Type = 1
     StreamObj.Open
     StreamObj.LoadFromFile = Server.MapPath(Url)
     Read_File = StreamObj.Read
     StreamObj.Close
     Set StreamObj = Nothing
End Function

x = Read_File("...文件地址")'把这个变量x保存到数据库