ListView og database problem

I mit filmdatabase program har jeg et lille problem:
Jeg har en stump kode, som virker uden problemer, når jeg skriver:
If MD = "DVD" Then
Men når jeg ændrer det til:
If MD = "VHS" Then
så siger den Index out of bounds, og peger på:
LstViewMovieList.ListItems(a).ListSubItems.Add , , RS!Sprog

Nogen experter her, som ved hvad problemet kan være?

Jeg har følgende kode:

Dim DB As Database
Dim RS As Recordset
Dim MD As String
Dim Header As ColumnHeader

clearList

LstViewMovieList.Sorted = False

LstViewMovieList.ColumnHeaders.Clear

Set Header = LstViewMovieList.ColumnHeaders.Add()
    Header.Text = "Titel"
    Header.Width = LstViewMovieList.Width * 0.73
   
Set Header = LstViewMovieList.ColumnHeaders.Add()
    Header.Text = "Sprog"
    Header.Width = LstViewMovieList.Width * 0.08
   
Set Header = LstViewMovieList.ColumnHeaders.Add()
    Header.Text = "Antal CD'er"
    Header.Width = LstViewMovieList.Width * 0.11
   
Set Header = LstViewMovieList.ColumnHeaders.Add()
    Header.Text = "Kvalitet"
    Header.Width = LstViewMovieList.Width * 0.07
   
Set DB = OpenDatabase(App.Path + "\List\MovieInfo.mdb")
Set RS = DB.OpenRecordset("Movies")

Dim a As Integer
a = 1

Do Until RS.EOF
   
    MD = RS!MediaType
    If MD = "VHS" Then
    LstViewMovieList.ListItems.Add , , RS!FilmTitel
    LstViewMovieList.ListItems(a).ListSubItems.Add , , RS!Sprog
    LstViewMovieList.ListItems(a).ListSubItems.Add , , RS!AntalCD
    LstViewMovieList.ListItems(a).ListSubItems.Add , , RS!Kvalitet
     
    LstViewMovieList.ListItems(a).Tag = RS!ID
   
    End If
    a = a + 1
   
    RS.MoveNext
   
Loop

RS.Close
DB.Close
LstViewMovieList.Sorted = True
LstViewMovieList.HideSelection = True