kode virker kun hos udvikler og ikke hos kunde el designer

Denne kode virker kun hos udvikler og ikke hos kunde el designer hvorfor !!!!!1


  On Error GoTo Err_cmdBrowse_Click
  Dim strFileName As String
  Dim oDialog As Object
  Set oDialog = Me!xDialog.Object
  With oDialog  ' Ask for new file location.
    .DialogTitle = "Please Select Data File"
    .Filter = "Access Database(*.mdb;*.mda;*.mde;*.mdw)|" & _
    "*.mdb; *.mda; *.mde; *.mdw|All(*.*)|*.*"
    .FilterIndex = 1
    .ShowOpen
    ' If user responded, put selection into textbox on form.
    If Len(.FileName) > 0 Then Me![txtFileName] = .FileName
  End With