<br /> Private Sub IMAGE()<br /> Dim FILE As String<br /> FILE = App.Path 'path_name'<br /> If Picture1.Picture = Empty Then<br /> Open FILE For Binary Access Read As #1<br /> Get bytes<br /> rs("pics")<br /> <br /> End If<br /> End Sub<br /> <br />
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)