Visual Basic - Comprobar existencia de un elemento

Quiero introducir un elemento en una base de datos de acces.
Para ello abro un recordset y lo recorro comprobando que ninguno de sus elementos coincide con el que quiero introducir, pero no me funciona. Le pongo un elemento que se que existe pero no me lo reconoce. El codigo es el siguiente:
item = txtAdd.Text
sql = "select DTO from DEPARTAMENTOS WHERE DTO = 'item'"
rs.Source = sql
rs.Open
If rs.Fields(0) = item Then
x = MsgBox("Este elemento ya existe", vbOKOnly, "Elemento existente")
txtAdd.Text = ""
txtAdd.SetFocus
Exit Sub
elseif
rs.AddNew
rs.Fields(0) = txtAdd.Text
rs.Update
End If

Mmm, a ver...

item = txtAdd.Text
sql = "select DTO from DEPARTAMENTOS WHERE DTO = " & Item
rs.open sql,conexionBaseDatos
IF Not rs.EOF Then
MsgBox("Este elemento ya existe", vbOKOnly, "Elemento existente")
txtAdd.Text = ""
txtAdd.SetFocus
End If

Saludos.