[Tasos]

Ανδρέα, στο παράδειγμα που ανέβασες σε προηγούμενο σου μήνυμα ήταν ενσωματωμένο το αντικείμενο WindowsMediaPlayer8 (WindowsMediaPlayer Control).
Ο κώδικας που σου πρότεινα ήταν φυσικά βασισμένος στο WindowsMediaPlayer8 του παραδείγματος.
Αν δεν έχεις αντικείμενο WindowsMediaPlayer στη φόρμα σου και θέλεις να ανοίγεις το βίντεο με την προεπιλεγμένη εξωτερική εφαρμογή τότε χρησιμοποίησε:

Option Compare Database
Option Explicit
Private Declare Function ShellExecute _
                          Lib "shell32.dll" Alias "ShellExecuteA" _
                              (ByVal hWnd As Long, ByVal lpOperation As String, _
                               ByVal lpFile As String, lpParameters As Any, _
                               lpDirectory As Any, ByVal nShowCmd As Long) As Long

Private Sub cmdOpenMovie_Click()
    ShellExecute 0, "open", "C:\Users\Public\Videos\Sample Videos\Wildlife.wmv", "", "C:\", 3
'    ShellExecute 0, "open", Nz(Me.MoviePath, ""), "", "C:\", 3
End Sub

Καλή συνέχεια!

Τάσος