Fel i listbox när det inte finns någonting att fylla

Hur löser jag det här?
I listbox3 så finns det ett antal sångtitlar. När man klickar på dom så fylls lista4 upp i form av datum. Det skall bli lite mera avacerat sedan, men vi stannar där.
Om det nu är som så att en sångtitel inte har något datum, då får jag error. Hur löser jag det.
Här är koden:

    List4.Clear
Set minDB = OpenDatabase("f:\saw\databas\stat.mdb")
Set mittRS1 = minDB.OpenRecordset("SELECT t_SongTitlar.titel_Id, t_SongTitlar.songtitel, t_Datum.Datum FROM t_SongTitlar INNER JOIN t_Datum ON t_SongTitlar.titel_Id = t_Datum.Sång_ID WHERE songtitel = '" & List3.Text & "'   ORDER BY songtitel", dbOpenDynaset)
    Do While Not mittRS1.EOF
    
    If IsNull(mittRS1!datum) Or Len(mittRS1!datum) = 0 Then
               List4.AddItem "0"
    Else
        List4.AddItem mittRS1!datum
    End If
        mittRS1.MoveNext
        Loop
    Label5.Caption = "IdNr: " & mittRS1!titel_id
    List4.ListIndex = 0
mittRS1.Close

Hoppas på hjälp :p