Срочно помошь по Ошибке 13 завтра диплом сдавать!!!

[CHEvalier]

есть структура
Private Type Record
Name As String * 15
tim As String * 15
dat As String * 15
te1 As String
te2 As String
number As Integer
End Type

и нужно данные считывать в LISTview

а он мне Несоответствие типов выдает в строке
Dim b As ListItem
dim myrecord as record

Set b = L.ListItems.Add(, , myrecord.Name) ---------- ЗДЕСЬ
b.SubItems(1) = Crypt(myrecord.tim)
b.SubItems(2) = myrecord.dat
b.SubItems(3) = myrecord.te1


Помогите пожалуста!!!!!

[RayShade]

Я бы проверил тип переменной L... потому что у меня этот код отработал без ошибок.