Fejlmelding når billede skal hentes

Hej Eksperter

Jeg får meddelsen når jeg klikker på min knap med følgende kode: (hvis jeg skriver c:\\billede.jpg bliver billedet sat ind.

Private Sub Command105_Click()
Me!Ekstra4 = LaunchPicture(Me)
Me.Refresh
End Sub

" Runtime error ´3163´ The field is to small to accept the amount of data you attended to add. try inserting or pasting less data."



Mit modul kode ser sådan ud:
Function LaunchPicture(strform As Form) As String
    Dim OpenFile As OPENFILENAME
    Dim lReturn As Long
    Dim sFilter As String
    OpenFile.lStructSize = Len(OpenFile)
    OpenFile.hwndOwner = strform.Hwnd
    sFilter = "All Files (*.*)" & Chr(0) & "*.*" & Chr(0) & _
      "JPEG Files (*.JPG)" & Chr(0) & "*.JPG" & Chr(0)
    OpenFile.lpstrFilter = sFilter
    OpenFile.nFilterIndex = 1
    OpenFile.lpstrFile = String(257, 0)
    OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
    OpenFile.lpstrFileTitle = OpenFile.lpstrFile
    OpenFile.nMaxFileTitle = OpenFile.nMaxFile
    OpenFile.lpstrInitialDir = "c:\\shared folders"
    OpenFile.lpstrTitle = "Select a file from the CREW Picture folder on the SERVER"
    OpenFile.flags = 0
    lReturn = GetOpenFileName(OpenFile)
        If lReturn = 0 Then
            MsgBox "A picture was not selected!", vbInformation, _
              "Select a file from the RELIEF folder on the SERVER"
        Else
            LaunchPicture = Trim(OpenFile.lpstrFile)
        End If
End Function

samt koden til at sætte billedet ind ser sådan ud og virker.

Private Sub Form_Current()

    If Not IsNull(Me!Ekstra4) Then
        Me!Billede.Picture = Me!Ekstra4
        Else
        Me!Billede.Picture = "(none)"
    End If


End Sub


hilsen jan