Problem med Listview

Försöker lägga till värden i en Listview men får hela tiden 'Type missmatch' Runtime error 13. Kan inte komma på vad jag gör fel.

Dim strDatum As String

strDatum = txtDatum.Text

Dim ListObj As ListItem
Set ListObj = ListView1.ListItems.Add(, , strDatum)

Mattias