Access - Reproducir archivos mp3 secuencialmente en vba access

Tengo una base de datos donde he catalogado todos mis álbumes de música y así poder localizar una canción y reproducirla o un álbum completo. Ahora llevo tiempo queriendo generar listas de reproducción donde incluir canciones sueltas o álbumes completos, todo junto.
Para ello he creado una tabla donde guardo el nombre que le doy a la lista y tantos registros como canciones tiene la lista. Estos registros contienen la url de cada canción. Luego he puesto este código para recorrer la tabla "Listas_Ficheros" e ir reproduciendo cada una de las canciones incluidas en ella.

Private Sub ReproLista_Click()
Dim dbs As Database
Dim rst As Recordset
Dim busca As String

RutaLista = RutaCarpeta("Listas") & Me.ReproLista & "\"

busca = "SELECT Listas_Ficheros.Direccion_Fichero "
busca = busca & "FROM Listas_Ficheros "
busca = busca & "WHERE Listas_Ficheros.Nombre_Lista like '" & Forms![Buscar_Musica]!ReproLista & "';"
Set dbs = CurrentDb
Set rst = CurrentDb.OpenRecordset(busca)
rst.MoveFirst
Do Until rst.EOF
' MsgBox "" & rst!Direccion_Fichero
' Shell "C:\Program Files\VideoLAN\VLC\vlc.exe " & rst!Direccion_Fichero
Shell "C:\Program Files\Windows Media Player\wmplayer.exe """ & rst!Direccion_Fichero & """"

rst.MoveNext
Loop
End Sub

El problema es que si que las va reproduciendo, pero no espera a que termine una canción para empezar a reproducir la siguiente.
Como veis, tengo comentada una línea en la que utilizo el VLC en vez windows media, pero tampoco me funciona.¿Conocéis alguna forma de decirle que espere hasta que acabe la canción para empezar con la siguiente?
Muchas gracias