Dim MyCn As New ADODB.Connection
    MyCn.Provider = "Microsoft.SQLSERVER.CE.OLEDB.3.5"
    MyCn.ConnectionString = My.Settings.LocalConnectionString
    MyCn.Open()

    Dim rSelect As New ADODB.Recordset

    With rSelect
        .Open("Select wID, DirPath, Children From Watches Where DirPath like '" & dialog.SelectedPath & "'", MyCn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly)
        If .EOF Then
            .AddNew()
            .Fields!DirPath.Value = dialog.SelectedPath
            .Fields!Children.Value = True
            .Update()
        End If
        .Close()
    End With

In order to evaluate an indexed property, the property must be qualified and the arguments must be explicitly supplied by the user.