想请教一个任何打开现有的一些音乐，电影之类的文件(*.mp3,*.rmvb)

Question

我做的数据库由于有影音资料这一部分，我按照做别的方法，也是把这些影音方面的文件以地址存放到数据库，再想按地址来调用和打开，但就是不知道怎么实现，我试了下但没成功，希望有人会的多帮忙。
textBox与我的数据库中存放地址的字段绑定
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Sub command1_click()
    Dim sFileName As String
    sFileName = Text2.Text
    If Err <> 0 Then Exit Sub
    If sFileName = "" Then Exit Sub
    ShellPlay (sFileName)
End Sub
Private Sub ShellPlay(ByVal sPath As String)
    Dim lret As Long
    Dim sText As String
    sText = Trim$(sPath)
    lret = ShellExecute(hwnd, "open", sText, vbNull, vbNull, SW_SHOWNORMAL)
    If lret >= 0 And lret <= 32 Then
        MsgBox "error opening viewer program"
    End If
End Sub
另外，请尽可能把所有格式的文件都写下，