VB加载图片

对图片用VB进行加载到数据库中从数据库中读图片DimcnAsADODB.ConnectionDimrsAsADODB.RecordsetDimmstreamAsADODB.StreamszConString="Provider=sqloledb.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=db;DataSource=(local);Password=soft"Setcn=NewADODB.Connectioncn.CursorL