If rs.RecordCount> 0  Then
MsgBox "Уже есть такой элемент" 
Exit sub
End If

Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection
Dim sql As String

Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = App.Path & "\ReportITD.mdb"
.Open
.BeginTrans
End With

sql = "select * from tblDataInput"
With rs
    .ActiveConnection = cn
    .CursorLocation = adUseClient
    .CursorType = adOpenDynamic
    .LockType = adLockBatchOptimistic
    .Open sql
    .Filter = "[Month]=" & TheMonth & " and [Year]= " & TheYear
    If .RecordCount >  0  Then
        MsgBox "Запись уже существует " & .Fields( 1 ).Value, vbCritical
    Else
        If MsgBox("Создать новую запись?", vbQuestion + vbOKCancel) = vbOK Then
            .AddNew
            .Fields( 1 ).Value = "что то"
            .Fields( 2 ).Value = "что еще"
            .UpdateBatch
        Else
            MsgBox "Что :( опять не будем создавать новую запись!!???", vbCritical
        End If
    End If
End With
cn.CommitTrans
rs.Close
cn.Close

Set rs = Nothing
Set cn = Nothing