runtime error med mediaplayer

Jeg har skrevet noget simpelt kode til at åbne en mp3 fil i mediaplayer og afspille den.

først opretter jeg mediaplayer som ocx.
dernæst:

Private Sub Command1_Click()

MediaPlayer1.Open (sang)
MediaPlayer1.Play

End Sub

Jeg får hele tiden følgende fejl:

Run-time error \'-2147467259 (80004005)\':

Method \'Play\' of object \'IMediaPlayer2\' failed