Private Sub bAttach_Click()
    Dim sFileName As String, MyChar As String, str As String
    Dim L As Long
    sFileName = dlgOpenFile( "", " *.* ", " *.* ")
    
    If sFileName <> " " Then
        DoCmd.Hourglass True
        L = FileLen(sFileName)
        Open sFileName For Binary Access Read As # 1 
        str = Input(L, # 1 )
    
        str = IIf(Val(CurrentDb.Version) <  3 . 5 , str, StrConv(str, vbFromUnicode))
        Close # 1 
    
        Me.IMAGE = str
    End If
    
err:
    Close # 1 
    GoTo exit_sub
exit_sub:
    DoCmd.Hourglass False
End Sub