I used this code to insert a few picture in my database. But went i add a new form (also have to insert picture), the error come out.

this is the code:

Private Sub cmdAddImage1_Click()
On Error GoTo cmdAddImage1_Err
Dim strFilter As String
Dim lngflags As Long
Dim varFileName As Variant
Dim strBookmark As String

strFilter = "All Files (*.*)" & vbNullChar & "*.*" _
& vbNullChar & "All Files (*.*)" & vbNullChar & "*.*"

lngflags = tscFNPathMustExist Or tscFNFileMustExist _
Or tscFNHideReadOnly

varFileName = tsGetFileFromUser( _
fOpenFile:=True, _
strFilter:=strFilter, _
rlngflags:=lngflags, _
strDialogTitle:="Please choose a file...")

If IsNull(varFileName) Then
Else
Me![Gambar 1] = varFileName
strBookmark = Me.Bookmark
Forms![New2form].Form.Requery


Me.Bookmark = strBookmark
End If

cmdAddImage1_End:
On Error GoTo 0
Exit Sub

cmdAddImage1_Err:
Beep
MsgBox Err.Description, , "Error: " & Err.Number _
& " in file"
Resume cmdAddImage1_End

End Sub

can u help me!!