Consulta DataGrid - Recordset

Buenas tardes:

Tengo la siguiente duda:

Manejo en VB6 un formulario dónde introduzco una serie de datos y los
visualizo en un DataGrid. El caso es que no quiero que al introducir los
registros:
fecha,idtitulo (hay más registros pero estos son los más importantes), se
dupliquen y quisiera que salga un aviso como que existen estos registros.

He puesto esto en el botón de comando ACTUALIZAR, pues con Nuevo Registro
añado con .Addnew y con Actualizar .Update.

adoPrestamo.Recordset.Update
adoPrestamo.Refresh

Dim sBase As DAO.Database
Dim sRec As DAO.Recordset
Dim sDato As String
Dim sId As String

Set sBase = OpenDatabase(App.Path & "/musica.mdb")
sDato = "select * from prestado"
Set sRec = sBase.OpenRecordset(sDato, dbOpenDynaset)


sRec.MoveLast
sRec.MoveFirst


If ((sRec.Fields(1).Value = adoPrestamo.Recordset.Fields(1).Value) And
(sRec.Fields(2).Value = adoPrestamo.Recordset.Fields(2).Value) And
(sRec.Fields(3).Value = adoPrestamo.Recordset.Fields(3).Value)) Then
MsgBox "Existen registros." --> SIEMPRE ME DICE QUE EXISTE
Else
MsgBox "No existen registros."
End If

Quisiera que cuando introduzco los datos en los registros (manual en el
form) antes de actualizar con .Update me avisara con la idea de que voy a
duplicar registros: Idtitulo y fecha (coincidentes).

Gracias por vuestro interés. Si no lo explico bien me lo decis.