Adding Date To Listview

[TommyF]

I am using the follwoing code to read data from a dataset

For i = 0 To myPaymentDataset.Tables("tblMembershipPayments").Rows.Count - 1


With myPaymentDataset.Tables("tblMembershipPayments").Rows(i)
If myPaymentDataset.Tables("tblMembershipPayments").Rows(i) Is System.DBNull.Value Then
Itm = Me.lvwPrevPayments.Items.Add("")
Else
Itm = Me.lvwPrevPayments.Items.Add(IIf(IsDBNull(.Item("curPayAmount")), "", .Item("curPayAmount")))
Itm.Tag = !lngMemberID
Itm.SubItems.Add(IIf(IsDBNull(.Item("dtePayDay")), "", .Item("dtePayDay")))

End If
End With
Next i


The problem I am having is that dtePayDay is a date field and I cant seem to get it to add this field. It just get an error.

Any Ideas