пытаюсь запустить в плеере несколько файлов но что то не выходит

Dim i As Integer
Dim x As Integer
Dim b As Long
Dim rs As DAO.Recordset
Dim strsql As String

strsql = "SELECT play.adress FROM play"
Set rs = CurrentDb.OpenRecordset(strsql)

x = rs.RecordCount

ReDim a(i = 1 To x)
For i = 1 To x

rs.MoveFirst
Do Until rs.EOF
a(i) = HyperlinkPart(rs.Fields("adress").Value)
rs.MoveNext
Loop

Next

b = ShellExecute(Application.hWndAccessApp, "open", a(i), 0, "C:\", SW_SHOWNORMAL)

Set rs = Nothing


ошибку пишет что а(i) индекс вышел за рамки
может быть из за того что для а(i) в декларации стоит тип стринг
подскажите пожалуйста ошибки (

http://www.sql.ru/forum/1093739/shellexecute-i-massiv