Run-Time error '48' Error In loading DLL

[yamism]

Good Morning,

We are facing problem to run the below code for adding attachment;





Private Sub Command7_Click( )



Dim i As Integer

Dim vrtSelectedItem As Variant



Dim dlgOpen As FileDialog



Set dlgOpen = Access.Applicat ion.FileDialog( msoFileDialogOp en)



With dlgOpen

dlgOpen.AllowMu ltiSelect = True

dlgOpen.Show

End With

msg = "Selected Files are:" & vbNewLine

For Each vrtSelectedItem In dlgOpen.Selecte dItems

msg = msg & ";" & vrtSelectedItem '& vbCrLf

Next

ReDim strAttach(1 To dlgOpen.Selecte dItems.Count) As String



For i = 1 To dlgOpen.Selecte dItems.Count

strAttach(i) = dlgOpen.Selecte dItems(i)

Next i





Set dlgOpen = Nothing





Text4.SetFocus

Text4.Text = Mid(msg, 2, Len(msg))

End Sub

[Mahesh_Bote]

please check the proper reference. may be some ref are missing.