Noget rod med arraylist og database

Hej

Jeg laver en arraylist, som jeg flytter sammen med andet data som ét objekt.
Jeg vil senere bruge det i forbindelse med at jeg skal putte det i en database, men den bliver ved at med at komme med følgende fejl:

Object reference not set to an instance of an object og peger på følgende linie:

i = objdata.HandlingsArraylist.Count

Det underlige er, at jeg har haft det til at virke, men så skulle jeg prøve at lave det om til hashtable og så gik det galt.

Det samlede ser ud som følger:

Public Function CreateAfvigelse(ByVal objdata As Afvigelse) As Object Implements IAfvigelse.CreateAfvigelse

                Dim DBConn As DataHelperClass = New DataHelperClass
                Dim Conn As OleDbConnection = DBConn.GetConnection()
                Dim SqlCmd As OleDbCommand
                Dim SqlInsert As String
                SqlInsert = "Insert Into Afvigelser ( Overskrift, OprettelsesDato, OprettelsesInitialer, VedrAfdelingsid ) Values ( @Overskrift, @OprettelsesDato, @OprettelsesInitialer, @VedrAfdelingsid );"
                SqlCmd = New OleDbCommand(SqlInsert, Conn)
                SqlCmd.Parameters.AddWithValue("@Overskrift", objdata.Overskrift)
                SqlCmd.Parameters.AddWithValue("OprettelsesDato", objdata.OprettelsesDato)
                SqlCmd.Parameters.AddWithValue("@OprettelsesInitialer", objdata.OprettelsesInitialer)
                SqlCmd.Parameters.AddWithValue("@VedrAfdelingsid", objdata.VedrAfdelingsid)
                SqlCmd.ExecuteNonQuery()
                Dim cmd As New OleDbCommand("SELECT @@IDENTITY", Conn)
                Dim lastId As Integer
                lastId = cmd.ExecuteScalar

                'Indsætter handlinger i Afvigelseshandlings-tabellen
                Dim i As Integer

                i = objdata.HandlingsArraylist.Count

                If i > 0 Then
                    For i = 1 To i
                        SqlInsert = "Insert Into Afvigelseshandlinger ( Afvigelsesrapport, Handlingsnr, Handling) Values ( @Afvigelsesrapport, @Handlingsnr, @Handling);"
                        SqlCmd = New OleDbCommand(SqlInsert, Conn)
                        SqlCmd.Parameters.AddWithValue("@Afvigelsesrapport", lastId)
                        SqlCmd.Parameters.AddWithValue("@Handlingsnr", i)
                        SqlCmd.Parameters.AddWithValue("@Handling", objdata.HandlingsArraylist.Item(i))
                        SqlCmd.ExecuteNonQuery()
                    Next i
                End If
                Conn.Close()
                Conn = Nothing
                Return lastId

            End Function