rs.AddNew
        Set mystream = New ADODB.Stream
            mystream.Type = adTypeBinary
            mystream.Open
            mystream.LoadFromFile "C:\\" & File '"c:\\myimage.gif"
        rs.Fields("Naziv") = File
        rs.Fields("Sifra") = mystream.Size
        rs.Fields("Slika") = mystream.Read
    '   rs.Update
            mystream.Close
        Text1.Text = File
        DoEvents