se om list også findes i database

Hej med jer alle sammen.

Nu har jeg kæmpet i 2 dage og vil nu krybe til jer som har arfaringen.

jeg har en database og en list
og jeg vil så gerne se om nogle titler i listen også findes i databasen hvis de gør så må den ikke gøre noget andet end og komme med en msgbox og sige at den findes og at man skal finde en anden titel.
hvis der ikke findes nogle titler i listen som er magen til databasens så må den gerne oprette en med det navn.
HVORDAN GØR MAN DET ??????

kode :
Private Sub Command1_Click()
If Text1.Text = "" Then
    MsgBox "Intast titel!", , "Tilføj"
    Text2.SetFocus
    SendKeys "{Home}+{End}"
ElseIf Text2.Text = "" Then
    MsgBox "Intast Nr!", , "Tilføj"
    Text2.SetFocus
    SendKeys "{Home}+{End}"
Else
    rsSQL = "Select * FROM dvdfilm"
    Set rs = Conn.Execute(rsSQL)
   
    SQL = "insert into dvdfilm (film, nr, image, udlån) values ('" & Text1.Text & "', '" & Text2.Text & "', '" & Text3.Text & "', 'Nej');"
    Conn.Execute (SQL)
   
    maindvdliste.List1.Clear
    Do Until rs.EOF
    maindvdliste.List1.AddItem rs("film")
    rs.MoveNext
    Loop
    rs.MoveFirst
    maindvdliste.txtfilm.Text = "" & rs("film") & ""
    maindvdliste.txtnr.Text = "" & rs("nr") & ""
    maindvdliste.txtudlon.Text = "" & rs("udlån") & ""
    maindvdliste.txtnavn.Text = "" & rs("navn") & ""
    maindvdliste.txtimage.Text = "" & rs("image") & ""
    maindvdliste.id.Text = "" & rs("id") & ""
    maindvdliste.Text2.SetFocus
    Unload Me
    End If

End Sub