In an ActiveX control this will work

code
---------------------
Private Sub cmdMusic_Click()
On Error Resume Next
cdlMusic.ShowOpen
MediaPlayer1.FileName = (cdlMusic.FileName)
End Sub
---------------------
end code

you will need to add the common diallog 6 and mediaplayer components for this

and of course have a commondialog called cdlMusic and a mediaPlayer called Mediaplayer1


Im not sure how to work it in a form tho as media player is an activeX program