可以使用资源文件，给你写个实例：
1 首先建立一个资源文件，将要播放的音乐放在里面
外接程序－>外接程序管理器->双击"Resource Editor"然后确定
点击工具栏中的"Resource Editor"图标打开"Resource Editor"
添加一个资源（就是你要播放的声音）资源id为101

2 添加一个窗体 一个命令按钮 并添加如下代码
Private Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1
Private Const SND_MEMORY = &H4
Private Sub Command1_Click()
Dim cells() As Byte
cells = LoadResData(101, "wave") '从资源文件中载入需要的数据放在指定的字节数组中
sndPlaySound cells(0), SND_ASYNC Or SND_MEMORY '该函数可要播放内存中的声音

End Sub